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INTRODUCTION 


\ 

This  report  details  the  development  of  a  gun  wear  data  bank  used  to  store  and 
retrieve  firing  data.  These  data  can  be  used  to  generate  or  check  out  proposed  gun 
wear  models,  <$)  compare  the  gun  wear  rates  of  various  gun  systems,  <Jt>  study  the  effect 
of  firing  schedule  on  gun  wear,  and  (p  aid  in  predicting  wear  rates  for  proposed  gun 
systems. 

1 

BACKGROUND 


Attempts  to  predict  gun  wear  rates  in  order  to  reduce  costly  empirical  determinations 
include  (1)  expressions  that  relate  wear  caused  by  a  reduced  charge  round  with  wear 
caused  by  a  full  charge  round1*2,  (2)  calculations  of  bore  surface  temperature3*4,  and  (3) 
semiempirical  methods  of  estimating  gun  wear  rates  and  gun  life4*5. 

It  has  been  necessary  to  employ  both  theory  and  empiricism  when  devising  a  method 
of  gun  wear  prediction.  Accurate  prediction  of  gun  wear  by  theoretical  methods  alone  has 
not  been  successful  because  gun  erosion  is  not  a  simple  phenomenon.  For  example,  the 
attempts  of  Nordheim,  et  al.3  and  Jones  and  Breithart6  to  predict  gun  erosion  based  on 
melting  of  the  steel  at  the  bore  surface  were  not  sucessful  because  the  steel  does  not  melt 
in  most  guns.3 

The  purely  empirical  methods  of  predicting  gun  wear  have  not  been  successful  because 
there  are  too  many  variables  affecting  the  wear  of  a  gun.  For  example,  Riel’s  empirical 
formula2  to  relate  gun  wear  caused  by  a  reduced  charge  with  that  caused  by  a  full  charge 
implies  that  the  charge  weight  is  twice  as  important  as  the  propellant  energy  level  in 
causing  erosion.  This  (combined  with  knowledge  of  interior  ballistics  and  a  bit  of 
thermochemistry  of  propellants)  leads  to  the  unlikely  conclusion  that  gun  wear  may  be 
reduced  by  substituting  higher-flame-tmeperature  (or  more  energetic)  propellants  for  the 
current  propellants.  The  problem  is  that  an  empirical  prediction  scheme  was  devised  without 
adequate  data. 

Semiempirical  methods  of  predicting  gun  wear  include  those  of  Frankie  and  Kruse5 
and  Smith  and  O’Brasky 4  Frankie  and  Kruse  determined  the  empirical  constants  used  in 
their  method  from  published  estimates  of  wear  rates  for  various  cannon.  These  data  are 
easy  to  use,  but  do  not  normally  give  any  information  concerning  the  effect  of  firing  rate 
on  gun  wear.  In  addition  to  these  official  gun  wear  estimates.  Smith  and  O’Brasky  used 
actual  firing  data  in  constructing  and  verifying  their  method  of  predicting  gun  wear.  The 
labor  involved  in  the  use  of  these  actual  firing  data  was  considerable;  this  limited  the 
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amount  of  data  examined.  Had  the  firing  data  been  available  in  an  easy-to-use  computerized 
format,  more  data  could  have  been  considered  and  the  accuracy  of  the  gun  wear  prediction 
method  improved. 

Use  of  the  data  bank  outlined  in  this  report  should  help  in  future  attempts  to  derive  and  check 
out  improved  gun  wear  prediction  schemes  by  making  the  available  data  more  accessible.  It  should 
also  serve  as  a  convenient  source  of  data  to  review  the  wear  history  of  the  particular  gun  type. 


APPROACH 


The  computer  language  used  to  construct  and  access  this  data  bank  is  CDC  FORTRAN7. 
This  data  bank  was  designed  to  make  it  feasible  to  store  all  medium-  and  major-caliber  (3  in.  and 
above)  gun  firing  data  on  a  computerized  medium  and  to  retrieve  the  data  desired  with  a  minimum 
of  effort  and  computer  time.  The  file  type  chosen,  the  FORTRAN  mass  storage  file,  has  the 
following  advantages  for  this  type  of  data: 

1 .  Records  can  be  conveniently  and  rapidly  stored  and  retrieved  in  any  order. 

2.  By  the  use  of  subindices,  groupings  of  the  records  are  possible. 

A  FORTRAN  mass  storage  file  must  reside  on  disc  storage.  Since  the  volume  of  firing  data 
accumulated  by  the  various  proving  grounds  is  immense,  the  mapping  of  several  logical  numbers 
into  one  machine  word  would  be  a  space-saving  measure  for  long-term  disc  storage. 

Star  gauge,  firing,  and  comment  data  are  stored.  The  star  gauge  data  used  to  determine  the 
wear  state  of  a  gun  consist  of  measurements  of  the  inside  diameter  of  the  gun  bore  at  various 
points  along  its  length.  The  firing  data  include  (1)  what  was  fired  (propellant  weight  and  type, 
projectile  type,  wear-reducing  liner  type,  etc.),  (2)  the  conditions  under  which  it  was  fired 
(temperature,  rate  of  fire,  time,  etc.),  and  (3)  measured  performance  data  (peak  pressure  and 
projectile  velocity).  These  data  are  used  in  various  wear-rate  prediction  schemes.  Provision  is  made 
to  add  alphanumeric  comments  to  the  data  bank.  These  comments  might  concern  unusual  wear 
conditions,  special  gun  construction  details,  special  instrumentation,  or  similar  items. 
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PROCEDURE 


This  data  bank  employs  four  separate  programs  to  input,  sort,  and  output  data..  A 
group  of  subprograms  is  available  for  use  by  all  of  the  programs.  Each  of  these  programs 
deals  with  data  on  local  file  TAPE4.  Figure  1  shows  the  order  in  which  the  various 
porgrams  of  this  data  bank  may  be  executed. 


Figure  1.  Execution  of  Gun  Wear  Data  Bank  Programs 

Program  BANKN  is  used  to  store  data  in  the  data  bank.  Data  are  stored  on  local  file 
TAPE4;  this  file  should  be  cataloged  or  extended  as  a  permanent  file.  A  separate 
permanent  file  should  be  used  for  each  gun  type  (3''/50,  5"/38,  5"/54,  etc.),  but  data 
from  all  guns  of  a  given  gun  type  will  normally  be  stored  on  one  file.  The  format  used 
for  the  input  of  data  is  outlined  in  Appendix  A,  and  the  data  structures  used  to  store  the 
data  are  outlined  in  Appendix  B. 

A  data  record  is  created  for  each  firing  date,  stargauge  report,  or  comment  entered. 
An  entry  is  created  in  the  ISEAS  array  for  each  of  these  data  records;  these  entries 
contain  references  to  the  data  record.  These  data  records  do  not  have  to  be  created  in  any 
particular  order,  nor  do  all  records  for  one  gun  have  to  be  created  before  records  for 
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another  gun  can  be  created.  It  is,  however,  necessary  that  program  BANKL  be  executed  for 
a  given  gun  before  data  are  output  for  that  gun  (follow  the  procedure  outlined  in 
Appendix  A)  to  sort  the  1SEAS  array  by  date.  This  ISEAS  array  is  then  used  to  help  the 
computer  find  the  desired  data  records.  See  Appendix  B  for  the  word  structure  of  the 
ISEAS  array. 

Appendix  C  outlines  methods  of  outputting  data  from  the  data  bank  by  using 
programs  BANKO  and  POINT.  Program  BANKO  is  used  to  retrieve  and  output  data.  All 
available  data  may  be  output  for  a  given  gun  number,  or  the  data  output  may  be  limited 
(as  outlined  in  Appendix  C).  Program  POINT  is  used  to  compile  and  output  a  summary  of 
the  data  in  a  form  convenient  for  plotting  by  a  user  program. 

Appendix  D  contains  the  programs  used  by  the  data  bank;  Appendix  E  contains  flow 
diagrams  that  will  help  clarify  the  programs  listed  in  Appendix  D.  The  programs  used  by 
the  data  bank  are  listed  in  Appendix  F.  Appendix  G  contains  sample  output  for  several 
computer  runs. 


RESULTS  AND  CONCLUSIONS 


Computer  codes  to  construct  and  to  retrieve  data  from  a  gun  wear  data  bank  have 
been  written.  Data  have  been  entered,  and  the  codes  have  been  validated.  Further  data 
entry  awaits  additional  funding. 
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APPENDIX  A 


DATA  INPUT 


Data  are  entered  into  the  data  bank  when  PROGRAM  BANKN  is  executed.  A  card 
(or  group  of  cards)  is  designated  by  a  card  code  in  card  columns  1  through  5.  This  card 
code  is  designated  ICD;  the  last  digit  of  this  number  should  be  in  column  5. 

The  first  time  a  data  file  (gun  type)  is  opened,  use  ICD  =  1.  Then  starting  in 
column  6  of  this  card,  input  the  following: 


Variable 

Field 

Card 

Columns 

Description 

CODE 

A10 

6-15 

Alphanumeric  gun  description 

NG1 

15 

20* 

Number  of  long  stargauge  readings 
«  100) 

NG2 

15 

25* 

Number  of  short  stargauge  readings 
«12) 

NOB1 

15 

30* 

Number  of  the  origin  reading  for  the 
long  stargauging 

NOB2 

15 

35* 

Number  of  the  origin  reading  for  the 
short  stargauging 

DIAM 

F5.3 

3640 

Gun  caliber  (in.)  (use  decimal  point) 

NDAYS 

15 

45* 

Estimated  number  of  firing  days 

*L«ut  digit  of  the  number  should  be  in  this  column. 

Follow  this  card  with  a  list  of  long  stargauge  distances  from  the  reference  point;  use 
16F5.2  format.  Then  list  the  short  stargauge  distances  in  16F5.2  format. 

Lines  1  to  5  (Figure  A-l)  list  the  above  data  in  the  correct  form  for  the  1 6"/50  Mk 
7  gun.  Note  from  line  1  that  there  are  to  be  39  stargauge  readings  in  each  long  gauging 
and  six  starguage  readings  in  each  short  gauging  (the  first  such  reading  corresponding  to  the 
origin  of  rifling  for  both  the  short  and  long  gaugings),  the  gun  caliber  is  16  in.,  and  the 
estimated  number  of  firing  days  per  gun  is  75.  The  distance  from  the  breech  face  to  each 
of  the  39  long  (X)  gaugings  is  listed  in  lines  2-4,  and  the  distance  from  the  breech  face  to 
each  of  the  short  (normally  y)  gaugings  is  listed  in  line  5.  Note  that  these  cards  appear 
only  when  the  data  file  is  started,  not  on  subsequent  runs. 
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The  first  time  that  data  are  written  for  a  particular  gun  number,  1CD  =  2  is  used. 

Enter  the  gun  number  on  this  card,  being  sure  the  last  digit  is  in  column  10  (see  line  6 

of  Figure  A- 1,  for  a  sample). 

ICD  =  3  is  used  as  the  first  card  (other  than  ICD  =  1  or  2)  of  an  input  deck  for  a 
given  gun  number.  The  gun  number  is  entered  in  columns  6  through  10  (15  format),  and  a 
pressure  factor  in  F5.0  format  is  entered  in  columns  11  through  15.  Now  pressure  data  are 

stored  in  this  bank  in  kpsi;  if  other  units  are  used  to  enter  the  pressure  data,  a  pressure 

factor  is  entered  to  multiply  the  pressure  readings  before  storage  in  the  bank.  For  example, 
1  tsi(Cu)  =  2688  psi;  therefore,  if  the  pressure  data  are  in  tsi(Cu),  a  pressure  factor  of 

2.688  is  used.  [Line  7  of  Figure  A-l  gives  a  sample  of  such  a  card.  This  card  indicates 

that  data  are  to  be  entered  for  gun  number  396  and  that  the  pressure  readings  are  in 
tsi(Cu).) 

Following  the  ICD  =  3  card,  data  are  input  for  the  gun  number  listed  until  a  card 
with  ICD  =  0  (or  blank).  2,  or  3  is  encountered.  ICD  =  0  will  properly  terminate  program 
execution;  ICD  =  2  or  3  has  been  previously  explained.  ICD  =  11,  12,  or  13  is  used  for 
the  input  of  one  day’s  stargauging,  firing,  or  comments,  respectively.  For  any  of  these,  the 
next  15  card  columns  (columns  6  through  20)  contain  the  month  (e.g.,  1  for  January,  12 
for  December),  date  (1  through  31),  and  year  (last  two  digits  only)  in  315  format. 

For  stargauge  data  (ICD  =  11),  enter  the  number  of  readings  available  for  the  point 
up  (X)  readings  and  point  down  (7)  readings  in  columns  31  through  40  in  215  format.  The 
number  of  X  readings  should  be  0,  NG1,  or  NG2;  the  number  of  7  readings  should  be  0 
or  NG2,  where  NG1  and  NG2  are  given  under  ICD  =  1  above.  Plug  gauge  readings  (if 

available)  are  given  in  A5  format  beginning  in  columns  21  or  26  (or  both). 

Follow  this  card  with  a  list  of  measured  gun  diameters  for  the  X  stargaugings  in 
16F5.3  format.  The  distance  from  the  reference  point  to  the  point  where  the  diameter 
reading  is  taken  was  given  under  ICD  =  1  for  either  long  or  short  stargauging.  (Omit  this 
if  there  are  zero  X  gaugings.) 

Similarly,  the  7  stargauge  diameters  are  listed  (if  any)  for  the  distances  listed  for  the 
short  gaugings.  These  readings  are  listed  on  a  card  separate  from  the  X  readings.  Lines  8-12 
of  Figure  A-l  give  the  input  for  a  stargauging  performed  on  June  16,  1969.  Thirty-nine  X 
readings  and  six  7  readings  are  listed;  the  first  7  reading  is  16.427  in.,  and  the  first  7 
reading  is  16.428  in. 

For  firing  data  (ICD  =  12),  enter,  beginning  in  column  31  in  515  format,  the  number 
of  indexes  of  powder  used,  the  number  of  projectile  types  used,  the  ambient  temperature 
(°F),  the  number  of  rounds  previously  fired  from  the  gun,  and  the  previous  equivalent 
service  rounds  (FSRs)  shot  from  the  gun.  If  desired,  a  wear  measurement  may  be  entered 
in  columns  21  through  25  or  columns  26  through  30  (or  both). 
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The  second  card  of  this  sequence  lists  the  propellant  index  (10  columns  of 
alphanumeric  data  per  index)  and  the  projectile  types  (10  columns  of  alphanumeric  data 
per  projectile  type).  If  more  than  eight  such  fields  are  needed,  use  an  extra  card.  Lines 
13-14  of  Figure  A-l  show  that  on  June  12,  1969  a  firing  took  place  using  SPD  10293 
propellant  and  inert  1900-lb  projectiles,  the  ambient  temperature  was  76°F,  and  486  rounds 
had  previously  been  fired  through  this  tube. 

The  next  card  used  will  be  the  firing  setup  card  (1CD  =  15).  List  the  case,  plug, 
wad,  wear-reducing  agent,  primer,  number  of  the  propellant,  number  of  the  projectile,  and 
propellant  conditioning  temperature  in  5A10,  212,  13  format  beginning  in  column  6.  Use  an 
ICD  =  15  card  whenever  the  data  on  the  previous  ICD  =  15  card  are  not  valid  for  the 
next  round.  The  ICD  =15  card  image  of  line  15  of  Figure  A-l  indicates  that  the  Mk  15 
Mod  3  primer  was  used  with  the  first  propellant  (SPD  10293)  and  first  projectile  type 
(INERT  1900).  The  propellant  was  conditioned  at  90°F.  As  this  is  a  bag  gun,  no  case, 
plug,  or  wad  are  noted.  No  wear-reducing  agent  was  used  with  these  rounds. 

To  list  round-by-round  data  (for  one  round),  use  an  ICD  =  16  card.  List,  beginning  in 
column  6,  the  time  (24-hr  clock),  charge  weight  (lb),  pressure  (kpsi/pressure  factor),  and 
velocity  (ft/s)  in  15,  F5.2,  F5.1,  F5.0  format.  Lines  16-19  of  Figure  A-l  give  examples  of 
this  type  of  card.  Note  from  line  16  that,  at  9:57  a.m.,  a  670-lb  charge  yielded  a  chamber 
pressure  of  11.5  tsi(Cu)  and  a  projectile  velocity  of  2529  ft/s. 

Burst  data  are  given  by  an  ICD  =  17  card  or  card  sequence.  On  the  first  card  (the 
one  with  “17”  in  columns  4  and  5),  place  the  time  (24-hr  clock)  of  the  first  shot  of  the 
burst,  the  charge  weight  per  shot  (lb),  the  rate  of  fire  (rd/min),  the  number  of  rounds  in 
the  burst,  and  the  pressure  of  the  last  round  fired  (kpsi/pressure  factor)  in  15,  F10.2, 
FI 0.0,  110,  FI 0.1  format.  Place  a  1  in  column  51  if  velocity  data  are  available  for  the 
burst. 

If  a  1  is  in  column  51,  follow  this  card  with  a  list  of  velocities  (ft/s)  of  rounds  in 
the  burst.  Use  1615  format,  and  use  as  many  cards  as  necessary  to  list  all  the  velocities. 
Leave  a  blank  if  velocity  data  are  missing  for  a  round. 

When  data  for  all  rounds  are  listed  for  the  day’s  firing,  terminate  by  using  a  card 
with  ICD  <  13. 

An  ICD  =  13  card  is  used  to  initiate  a  comment.  The  number  of  comment  cards 
following  this  card  is  listed  in  15  format  beginning  in  column  21.  Each  comment  card  used 
is  assumed  to  contain  80  columns  of  alphanumeric  data.  Lines  20-21  of  Figure  A-l  indicate 
the  proper  format  for  entering  a  comment.  The  comment  pertains  to  the  date,  which  is 
June  14,  1969;  and,  the  one-line  comment  is  “THIS  IS  A  SILLY  COMMENT.” 
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Program  BANKL  should  be  executed  after  all  data  for  a  given  gun-  are  entered  or 
before  any  attempt  is  made  to  recall  any  data  for  this  gun  (with  POINT  or  BANKO). 
BANKL  expects  the  gun  number  to  be  entered  in  15  format  on  the  first  card;  subsequent 
cards  may  be  used  with  the  same  format  to  reference  other  guns.  Use  a  blank  card  as  the 
last  card  of  the  input  file  for  BANKL.  BANKL  sorts  the  references  to  the  records  in  order 
of  date  (BANKO  and  POINT  expect  the  references  in  order  of  date).  BANKL  may  be 
executed  more  than  once  for  a  given  gun.  This  will  be  necessary  if  the  data  for  a  gun  are 
to  be  accessed  by  BANKL  or  POINT  before  all  data  are  entered. 


GENERAL  SETUP 


The  data  are  stored  in  a  FORTRAN  mass  storage  file  with  one  level  of  subindexes.  A 
numeric  main  index  and  numeric  subindexes  are  used.*  A  separate  file  is  used  for  each 
type  of  gun  for  which  data  are  to  be  stored.  The  amount  of  data  written  or  read  by  one 
statement  is  called  a  record. 

The  first  record  of  the  file  contains  general  data  concerning  the  gun  -  an  alphanumeric 
identifier,  gun  diameter  in  inches,  the  number  of  stargauge  points  to  be  stored,  and  a  place 
to  keep  track  of  what  cases,  plugs,  wads,  primers,  and  wear-reducing  agents  have  been  used 
in  the  gun  (30  words  are  allowed  for  each  of  the  cases,  plugs,  etc.). 

The  second  record  is  a  listing  of  the  distances  from  the  reference  point  to  where 
stargauge  readings  are  taken.  Distances  (in  inches)  are  listed  for  a  long  stargauging  (usually 
20-35  points)  and  a  short  gauging  (usually  six  points).  The  data  are  recorded  in  A  format, 
five  characters  per  distance  (or  two  distances/word);  the  program  will  decode  (or  internally 
read)  the  data  in  F5.2  format. 


GUN  REFERENCES 

The  third  record  contains  an  array,  1SEAM  (2,200),  which  contains  data  to  aid  in 
locating  each  gun  for  which  data  are  stored  on  the  file.  Table  B-l  lists  what  is  stored  in 
this  array  and  where.  (The  first  word  refers  to  the  first  word  for  the  gun  in  question,  and 
the  second  word  refers  to  the  second  word  for  that  gun.) 

All  charge  weight  data  are  stored  as  6000  CW/d3,  where  CW  is  the  charge  weight  in 
pounds  and  d  is  the  caliber  of  the  gun  in  inches.  Units  of  other  variables  are  given  in  the 
tables  or  writeup  telling  how  the  variables  are  stored. 


Word 


1 

1 

1 

1 

2 


2 


Table  B-1.  Data  in  ISEAM  Array 

Bits  _ Description _ 

1-15  Total  number  of  rounds  fired  in  gun 

16-30  Maximum  charge  weight  ever  used  in  gun 

31-45  Maximum  velocity  of  any  round  shot  from  gun  (ft/s) 

46-60  Gun  number 

1-12  Number  of  subrecords  (i.e.,  days  of  firing,  stargauging. 

etc.);  this  is  a  flexible  limit  used  by  the  program 
and  will  be  changed  by  the  program  as  necessary 
13-24  Maximum  pressure  (psi/100)  ever  achieved  in  gun 


*A  description  of  how  to  use  a  FORTRAN  mass  storage  file  is  given  in:  Control  Data  Corporation,  FORTRAN  EXTENDED.  Version 
4,  Reference  Manual  (Revised  Edition),  Publication  #60305601K,  March  1976. 
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Table  B-1.  Data  in  ISEAM  Array  (Continued) 


Word  Bits  _ Description 

2  25-^6  Maximum  stargauge  reading 

2  37-48  Maximum  burst  length  (rd) 

2  49-60  Maximum  burst  rate-of-fire  (rd/min) 


Now  INDEX,  the  main  file  index,  is  dimensioned  at  201.  The  last  space  (201)  is 
unusable,  and  three  spaces  have  been  used  (1,  2,  and  3)  to  reference  the  first  three 
records.  The  fourth  element  of  INDEX  contains  references  to  the  subindex  for  the  same 
gun  that  is  referenced  by  the  4,h  word  pair  of  ISEAM.  This  correspondence  is  maintained 
for  the  fifth,  sixth,  etc.,  words  up  to  a  maximum  of  200;  thus,  data  for  197  guns  may  be 
stored  on  this  file. 

SUBINDEXES 

At  any  time,  the  subindex  being  used  is  INDEXS  dimensioned  at  1001;  thus,  1000 
records  per  gun  are  permitted.  They  are  now  considered  to  be  numbered  1,  2,  3,  ...,  n, 
which  results  in  n  such  records  (n  <  1000).  The  first  such  record  is  1SEAS,  dimensioned 
at  2  and  1000.  ISEAS  bears  the  same  relationship  to  INDEXS  as  ISEAM  bears  to  INDEX. 
Thus,  up  to  999  data  records  can  be  referenced  for  each  gun. 

The  first  word  of  each  ISEAS  pair  (except  the  first  pair)  contains  the  data  listed  in 
Table  B-2. 


Table  B-2.  Data  Always  Found  in  V*  Word  of  ISEAS  Pair 

Bits  Description  _ 

52-60  Year  (1900  would  be  0,  1901  would  be  /,  etc.) 

43-50  Month  and  date;  if  this  field  is  called  I  DATES,  the  month  is 

(IDATES-  I  )/3 1  and  the  date  is  IDATES-  31  *  month 
1-3  ICOD  (values  have  meaning  given  below): 

0  Plug  gauge  date  only 

1  Stargauge  record 

2  Not  used 

3  Firing  data;  no  rapid  fire 

4  Firing  data;  includes  rapid  fire 
5-6  Not  used 

7  Comment  (an  alphanumeric  comment) 


If  ICOD  is  1,  the  first  word  of  the  ISEAS  pair  contains  the  origin  readings  (in./ 1000) 
for  the  X  and  y  stargauge  readings  in  bits  13  through  27  and  2n  through  42,  respectively. 
The  second  word  of  the  ISEAS  pair  will  contain  the  number  of  words  in  the  referenced 
record  in  bits  1  to  1 1  and  the  number  of  the  record  referenced  in  bits  12  to  21. 

If  ICOD  is  3  or  4,  the  additional  information  listed  in  Table  B-3  is  contained  in  the 
ISEAS  pair. 


Table  B-3.  Information  Contained  in  ISEAS  Pair  for  ICOD  =  3  or  4 


Ward 

Bits 

Description 

1 

31-42 

Number  of  words  in  referenced  record 

1 

16-30 

Maximum  rate  of  fire  (0  if  ICOD  =  3)  (rd/min) 

1 

4-15 

Number  of  rounds  fired  on  date  referenced 

2 

46-60 

Maximum  charge  weight  for  day 

2 

31-45 

Maximum  velocity  for  day  (ft/s) 

2 

22-30 

Maximum  pressure  for  day  (psi/100) 

2 

12-21 

Number  of  the  record  referenced 

2 

1-11 

Maximum  burst  length  (rd) 

If  ICOD  =  7,  the  second  word  of  the  ISEAS  pair  will  contain  the  number  of  words 
in  the  referenced  record  in  bits  1  to  1 1  and  the  number  of  the  referenced  record  in  bits 
12-21. 


STARGAUGE  RECORDS  (ICOD  =  1) 

The  first  word  of  a  stargauge  record  contains  the  number  of  X  readings  in  the  right 
side  of  the  word  and  the  number  of  y  readings  ending  in  bit  31.  The  second  word 
contains  two  plug  readings;  and,  the  format  used  is  2A5.  (In  the  5"/54  gun,  the  first  of 
these  plug  gauge  readings  is  to  be  the  Mk  2  Bore  Erosion  Gauge  Reading,  and  the  second 
is  to  be  the  Projectile  Seating  Distance  Gauge  Reading.) 

The  X  stargauge  readings  are  listed  starting  in  the  third  word.  The  readings  listed  are 
in  in./ 1 000;  and,  the  numbers  are  regarded  as  15-bit  integers.  Four  such  readings  are  stored 
per  word.  The  y  stargauge  readings  follow  the  X  readings,  but  they  start  in  a  new  word. 
Note  that  the  distances  at  which  the  stargauge  readings  were  taken  are  stored  in  the 
second  record  of  the  file  and  are  not  repeated. 


GUN  FIRING  DATA  RECORDS 


The  first  word  of  this  record  contains  two  five-character  alphanumeric  fields  —  the  first 
is  the  previous  number  of  rounds  fired,  and  the  second  is  the  ESR  on  the  gun  to  date. 
The  second  word  contains  two  plug  gauge  readings  in  2A5  format.  The  third  word  contains 
the  ambient  temperature  (°F),  the  number  of  propellant  types  (m),  and  the  number  of 
projectile  types  (n)  used  in  that  day’s  firings  (encoded  using  13,  212  format). 

The  next  m  words  each  contain  a  10-character  alphanumeric  description  of  the 
propellant  type,  which  is  followed  by  n  words,  each  containing  an  alphanumeric  description 
of  one  projectile  type. 

The  balance  of  the  record  contains  setup  words,  round  words,  and  burst  word 
sequences  as  outlined  in  Tables  B-4,  B-5,  and  B-6,  respectively.  A  setup  word  should  be 
the  first  word  of  this  sequence  (a  new  setup  word  is  required  whenever  the  data  listed  in 
this  word  changes).  The  setup  word,,  for  the  most  part,  contains  references  to  other  data. 
(Note  that  the  first  record  of  the  file  contains  a  listing  of  cases,  plugs,  wads,  primers,  and 
wear-reducing  agent:  and  that  m  propellants  and  n  projectiles  used  this  day  have  been 
listed).  Table  B-4  gives  the  item  referenced  and  the  bits  containing  the  reference  to  the 
item.  The  reference  number  tells  the  user  to  pick  item  1,  2,  ...,  or  n  from  the  list.  This 
word  also  contains  the  quantity  (powder  conditioning  temperature  +100)  in  bits  10  through 
18;  bits  1  through  9  are  zero.  The  zero  in  bit  1  identifies  this  word  as  a  setup  word. 


Table  B-4.  References 

Bits 

55-60 

49-54 

43-48 

37-42 

31-36 

25-30 

19-24 


Contained  in  Setup  Word 
Referenced 


Case 

Plug 

Wad 

Primer 

Wear-reducing  agent 

Propellant 

Projectile 


Table  B-5.  Data  in  Round  Word 


Bits  Data 


46-60  Time  of  day  (24-hr  clock) 

31-45  Charge  weight 

16-30  Velocity  (ft/s) 

4-15  Pressure  (psi/100) 

1-3  The  number  1 


Table  B-6.  Data  in  Pint  Two  Words  of  Burst  Sequence 
Word  Bits  Data 


1  46-60  Time  of  day  (24-hr  clock) 

1  31-45  Charge  weight 

1  16-30  Number  of  rounds  in  the  burst 

1  4-15  Maximum  pressure  for  the  last  round  (psi/100) 

1  1-3  The  number  2 

2  46-60  Rate  of  fire  (rd/min) 

2  2  One  if  velocities  are  available  for  this  burst 


If  velocity  data  are  available,  the  data  are  stored  15  bits  per  velocity  (four  velocities 
per  word)  starting  in  the  next  word.  Velocities  are  in  ft/?. 


COMMENT  DATA 

The  first  word  of  a  comment  record  contains  the  number  4  in  the  right-hand  side, 
and  the  number  of  words  is  the  comment  ending  in  bit  31.  (The  number  of  words  in  the 
comment  is  eight  times  the  number  of  comment  cards.)  This  is  followed  by  the  comment. 
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APPENDIX  C 
DATA  RETRIEVAL 


BANKO  is  usually  used  to  retrieve  data  from  the  data  bank;  however, •  POINT  may  be 
used  for  obtaining  certain  data  to  plot  or  may  be  used  when  very  limited  data  are  desired. 

BANKO  expects  input  in  a  form  similar  to  that  expected  by  BANKN  -  a  card  code 
ICD  in  15  format  followed  by  a  75-character  alphanumeric  string  DATA  to  be  decoded. 
(DATA  starts  in  card  column  6.)  ICD  *  0  (or  blank)  properly  terminates  program 
execution.  If  ICD  =  1,  enter  the  number  of  gun  numbers  to  be  considered,  and  the  gun 
numbers  in  1515  format.  If  ICD  is  greater  than  one  but  less  than  10,  enter  two  numbers 
(AMINV  and  AMAXV)  in  2F5.0  format.  A  given  gun  number  will  be  chosen  if  the 
maximum  value  for  the  parameter  called  for  by  the  choice  of  ICD  lies  between  AMINV 
and  AMAXV  (Table  C-l). 


Table  C-1.  ICD  and  Corresponding  Parameters  (2  <  ICD  <  10) 
ICD  Parameter 


2  Velocity  (ft/s) 

3  Charge  weight  (lb) 

4  Number  of  rounds  shot  to  date 

5  Rate  of  fire  (rd/min) 

6  Number  of  rounds  per  buret 

7  Stargauge  readings  (in./ 1000) 

8  Peak  pressure  (psi/1000) 

9,10  Not  used 

If  ICD  is  greater  than  10,  it  is  desired  to  choose  records  for  a  gun  number  (or 
numbers)  that  have  been  previously  selected.  The  data  in  the  selected  records  are  then 
printed  out. 

If  ICD  =  II,  enter  the  number  of  records  for  each  gun  to  be  printed  and  the  record 
numbers  in  2513  format. 

If  ICD  *  12,  the  records  are  selected  by  date  and  record  type.  The  DATA  part  of 
this  card  is  defined  as  having  1515  fields.  The  first  three  fields  are  the  starting  date 
(month,  day,  and  year;  the  year  is  the  calendar  year  less  1900);  the  second  three  fields  are 
the  ending  date;  and  the  seventh  field  is  the  number  of  record  type  codes,  which  are  listed 
in  the  remaining  fields  (Table  C-2).  Data  records  are  selected  only  if  it  is  in  the  date  range 
selected  and  is  of  a  type  listed  in  the  list  of  record  codes. 
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Table  C-2.  Record  Type  Codes 
Code  Record  Description 


0  Plug  gauge  data  only 

1  Stargauge  record 

3  Firing  data;  no  rapid  fire 

4  Firing  data;  rapid  fire 

7  Comment  record 


If  ICD  =  13  or  greater,  enter  two  numbers  (AMAXV  and  AMINV)  in  2F5.0  format. 
A  record  will  be  selected  if  the  desired  parameter  (as  listed  in  Table  C-3)  is  greater  than 
AMINV  but  less  than  AMAXV.  (ICD  =  17  calls  for  stargauge  data,  and  other  values  of 
ICD  call  for  firing  data.) 


Table  C-3.  ICD  and  Corresponding  Parameters 
ICD  Parameter 


13  Maximum  charge  weight  (lb) 

14  Number  of  rounds  fired  that  day 

15  Maximum  rate  of  fire  (rd/min) 

16  Maximum  burst  length  (rd) 

17  Origin  reading  (in.) 

18  Maximum  peak  pressure  for  the  day  (psi/100) 

19  Maximum  velocity  for  day  (ft/s) 

Program  POINT  expects  unformatted  data  as  input.  The  first  card  (or  line,  if  entered 
from  a  terminal)  should  have  the  gun  number  and  a  round  count  code.  (If  the  gun 
number  is  396  and  the  code  is  1,  the  line  would  read  396,  1).  Round  count  codes  are 
given  in  Table  C-4. 


Table  C-4.  Round  Count  Codes 
Code  Action 


1  Count  number  of  rounds  fired  from  data  in  ISEAS  array 

2  Obtain  number  of  rounds  fired  previously  from  data  in  record 

3  Obtain  ESR  (equivalent  service  record)  on  gun  from  data  in  record 

4  Count  ESR  from  data  in  ISEAS  array 


These  ESR  (or,  for  Army  users,  equivalent  full  charge)  factors  are  calculated  based  on  the 
wear  estimation  methods  of  Smith  and  O’Brasky* .  If  this  is  not  satisfactory,  the  user  may 
substitute  his  own  FUNCTION  PESR  to  compute  ESR  factors  by  his  specifications. 


The  second  card  or  line  entered  should  contain  the  stargauge  selection  code  (1  for  X 
readings,  2  for  y  readings),  the  number  of  stargauge  distances  of  interest,  and  the  distance 
from  the  reference  point  to  the  points  of  interest.  (Make  sure  stargauge  readings  are 
available  for  the  distances  listed!) 

If  data  for  additional  guns  are  desired,  repeat  cards  1  and  2  for  each  gun.  If  a  gun 
number  of  0  is  entered,  the  program  stops. 


*C.  S.  Smith  and  J.  S.  OTJrasky,  Preliminary  Calculations  for  the  20Smm  Marine  Corps  Gun  Howitzer  Propulsion  Package,  Naval 
Surface  Weapons  Center,  Dahlgren  Laboratory  Technical  Report  NSWC/DL  TR-3734  (Appendix  B),  Dahlgren,  VA,  August  1977. 

i 


C-3 


APPENDIX  D 


PROGRAM  LISTINGS 


i 
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PROGRAM  BANKN 


PROGRAM  BANKN  ( INPUT , OUTPUT ,TAPE4, TAPE 1* INPUT, TAPE2*0UTPUT> 
IMPLICIT  LOGICAL  (El 

COMMON  INDEX  (201) , INOEXS ( 1001) , ISEAMt 2,?08) ,1 SEA9(2, 1000) , 

1  OAT At  88, SGI (1081 ,SG2< 12) ,SG(56) 

COHMON/ONE/  OOOE,NGA,NGB,NCB1,NOB2,OIAH,NG ,NRE  CM,SAVE1 , S AVE2 , 

1  CASE  (SO  I,  PLUG  ( 30  I,  UAO(38  ),  PRINERI30  I,  AGENT  (38  I 

INTEGER  OATE 

DIMENSION  RPC1M60I,  ITORE  (  1880)  ,DATE  (3)  ,SG(56)  ,PR0L(30), 

1  PRO J ( 30), SR  1(1 00) ,SR2(12) 

EQUIVALENCE  1REC1,C0DE> 

DIMENSION  IOATE ( 12) 

DATA  IOATE  /JH JAN, 3HFEB, 5HM ARCH, 5H APRIL, 3HMAV, 4H JUNE, 4MJULV, 

1  3HAUG  .4HSEPT ,  3HOCT ,  3HNOV,3HOEC/ 

IFUN  (I, J,K,L,M)*OR  (SHI FT (I, 45), SHI FTIJ, 30), SHI FT (K, l 5) .SHIFT 
1  (L,3),M) 

DATA  BLANK/10H  /, EOPEN/. FALSE. /, NRECM/2017 

NCASE*NPLUG4NMA0=NPRIMER=N AGENT* 1 
CASEtl l*PLUGf 1)*MAD(11 =PRIMER(1) *A6ENT f  1  )*  BLANK 
10  READ  (1,10  OOF  ICO, DATA 
1000  FORMAT  (I5,7A10,A5) 

126  ICCl*ICO*l 

GO  TO  (9,1,2,31 ,  ICOl 
9  CALL  NfilTMSl  4,RECl,160,l,-ll 
CALL  MRITMS  14, ISEAM.4 00,3 ,-11 
CALL  CLOSMS (  4) 

IF  (OATA(l)  .EQ.  BLANK)  STOP  1 
GO  TO  10 

1  CECOOE  (75, 1802, DATA)  CODE ,NGA,NGB ,N OBI, NO B2 ,01  AH, NO ATS 
1002  FORMAT  ( A1 0, 415, F5. 3 ,1 5) 

CALL  OPENMS  1  4, INDEX, 201,0) 

NGlHs (NGA*l>/2 
NGlMl«NGlH*t 

READ  (1,1004)  (SGII) ,I*1,NGIH) 

NG=  ( NG  A*  1)  /?♦  (NGB*  11/2 
REAO(l  ,10041  (SG(I),I* NG1H 1 , NG) 

1004  FORMAT  (8A10) 

CALL  MRITMS  1  4 ,SG , NG , 2) 

CALL  MRITMS  6  4 ,REC l , 1 60, II 

CALL  MRITMS  I  4 , ISEAM, 400, 31 

CECOOE  ( 56  Ofc 1006  *SG)  (SG1( II ,1= l.NGl ) 

DECODE  (200, 1006, SG(NGIHI) I (SG2 ( I) ,1*1, NG2) 

1006  FORMAT  (112F5.2I 

MRITE  (2,10001  CODE .01  AM 

1000  FORMAT  (  BFIGUN  IS  A10,  3N  OF,F10.3,17H  INCHES  DIAMETER.) 

MRITE  (  2,10201  SGI (N061) , SG2 (NO 92) 

1010  FORMAT  (20H80RIGIN  OF  RIFLING  *F7.2,3H  0RF7.2,  8H  INCHES.) 

MRITE  (2,1012)  (SGI (I> ,1*1 ,NGl) 

1012  FORMAT  ( 1M058X19HLONG  GAUGING  POINTS/I 1X12F10. 2) ) 

MRITE  (2,1014)  (SG2(I) ,1*1, NG2) 

1014  FORMAT  ( 1H 058X20HSHORT  GAUGING  P0INTS/1X12F10. 21 
EOPEN*.TRUE.' 

GO  TO  10 

2  IF  (EOPEN)  GO  TC  100 

C  —  CALL  ONLY  BEFORE  THE  FIRST  TIME  DATA  IS  MRITTEN  FOR  A  GUN. 

CALL  OPENRE  1  4) 

EOPEN*. TRUE J 

100  DECODE  (75 ,I000,0ATA)  IGUN 

CALL  GUNCAL  I  4, IGUN.ENEXT, JJ) 

IF  (ENEXT1  GO  TO  105 

PRINT  1016 

1016  FORMAT  (57H1 ATTEMPTED  TO  OPEN  FOR  1ST  TIME  GUN  FOR  MHICH  DATA  EXIS 
ITS) 

STOP  2 

105  CECOOE  <75, 1019, OATA)  NOOATS 
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1019  FORMAT  (5XI9I 
NRECS*2*NOOAYSM5 

IF  (NODAYS  .90.  0  .OR.  NRECS  .6E.  500)  NRECS*500 
00  110  1*1 .NRECS 

110  ISEAS ( 1. I) *CSEAS (2,I)*INDEXS(I) *0 
ISEAH  (  1,  JJ)  4SHIFT  (IGUN  ,45) 

ISEAH  (2 , J J1*NRECS 

CALL  STINOX  (  4, INOEXS .NRECS) 

CALL  NRITMS  1  4. I SEAS. 2* NRECS* 1) 

CALL  STINOX  t  4, INDEX  .NRECM) 

CALL  HRITHS  «  4  .INDEXS  .NRECS* 1, JJ. «. 1) 

GO  TO  10 
3  EJJ*. FALSE. 

IF  (EOPEN)  GO  TO  115 
CALL  OPENRE  1  4) 

EOPEN*. TRUE J 

115  DECODE  (75.1013.0ATA)  IGUN.PRESF 
1013  FORMAT  U5.FS.0) 

IF  (PRESF  .CO.  0)  PRESF*1. 

CALL  GUNCAL  (•  4 .IGUN, E NEXT , JJ) 

IF  (ENEXT)  STOP  3 

NRECS* AND (77X78 , ISEAM ( 2, JJ )  1 

CALL  REAOMS  1  4 .INOEXS ,NRE CS, JJ) 

CALL  STINOX  «  4, INOEXS, NRECS) 

CALL  REAOMS  (4 , ISEAS, 2<NR£CS, 1) 

120  READ  (1.1000)  ICO, DATA 

121  ICON*ICD-10 

IF  (ICOH)  125,125,130 
125  CALL  NRITMS*  4 , ISEAS, 2*NRECS, 1,- 1) 

CALL  STINOX  «  4.IN0EX  .NRECM) 

CALL  NRITMS  <  4, INOEXS  .NRECS , JJ, -1 , 1 ) 

C  —  AOD  TO  MAIN  SEARCH  ARRAY 
IF  (.NOT.  EJJ)  GO  TO  126 

CALL  MARRAY  (ISEAMd,  JJ)  ,ISEAM(2,  JJ)  .HVEL.MCW,  NRCTOT ,MRATE,NR08, 

1  HOO, HP .NRECS) 

GO  TO  126 
130  CONTINUE 

C  —  NRITE  OATA  TO  FILES 
EJJ*. TRUE, 

CO  TO  (11,12,13)  ICOH 

11  OECOOE  (75, 1018, OATA)  OATE .PLU61 .PLUG2 ,NG1 ,NG2 ,ISTOl, IST02 
1010  FORMAT  (3I5«2A5,5I5) 

JK*JREC( ISEAS, DATE, NRECS, 1) 

I0*DATE(1) 

NRITE  (2,1017)  IDATE(IC) ,0ATE(2) tOATE(T) 

1017  FORMAT (1H0 A6,I 3,4H,  19,12) 

PRINT  1020 ,N01 ,NG2,PLUG1,PLUG2 

1020  FORMAT  (  1H0I5.7H  UP  AN0I5.26H  OOMN  GAUGINGS  MERE  TAKEN. /17H  PLUG 
1READING  1  *A6, 17H  PLUG  REAOING  2  *A6) 

IF (NG1  *EQ.  f)  NG1*0 
IF (NG2  . EQ.  0)  NG2*0 
ITCRE ( l) *NG1  .OR.  SHIFT (NG2, 30) 

ENCOOE  ( 10 ,2022, ITORE ( 2) )  PLUG1, PLUG2 
1022  FORMAT  (2A57 
1001*1002*0 
ICOO*0 
IC0UNT*2 

IF  (NG1  .CO.  0)  GO  TO  135 

CALL  G AUGIN(NG1 ,SR1 .lOOfITORE ,IC  OUNT , IST01 ) 

ICOO*I 

135  IF  (NG2  .EO.  0.)  60  TO  140 

CALL  GAUGIN  (NG2.SR2, 12, 1TORE.ICOUNT , IST02) 

10Q2*SR2(N082) 

140  I0tt*SRt(N9«l) 

JX1*JK 

IF  (ISEAS(1,«K)  .NE.  0)  JKl*AND ( SHIFT (ISEAS (2, JK) , -11) ,17779) 


D-2 


CALL  NRITMS  1 4 » I TORE  *  I  COUNT ,JK1, •!) 

ISEAS ( 1, JK)*OR  (SHIFT  COATE (3) ,51) ,SHIFT(31*OATE(l) 40ATE(2) ,42) , 

1  SHIFT (1001,27) .SHIFT (1002, 12) ,ICOO> 

IC0D*0 

ISEAS ( 2, JK) 41 COUNT  .OR.  SHIFT (JK 1, 11) 

MD0*M AXO  (M 00, 1 081, 1002 ) 

GO  TO  120 

12  OECOOE  C75,f018,pATA)  DATE .PLUG t ,PLUG2 , NPROL , NPROJ, IAMB, NRPR ,NESR 
ENCOOE  ( 10 . 1023. ITORE ( 1) )  NRPR.NESR 
1023  FORMAT  (2150 

MRITE  (2.1025)  NRPR.NESR 

1025  FORMAT  (I6.1TH  PREVIOUS  ROUNOS,  I7.14H  PREVIOUS  ESR. ) 

JK*JREC( ISEAS, DATE, NRECS, A) 

10*0 ATE ( 1) 

NRITE  (2,101?)  10 ATE (I C) .DATE (2) .DATE (3) 

ENCOOE  (10,1122,IT0R£(2))  PLUGI.PLUG2 
ICOUNT  *2 

RE AO  (  1.1020)  (PROL (I ) ,1* 1 .NPROL) . IPROJ (I) , I* 1, NPROJ) 

1020  FORMAT  (OAltF 

K0U*1 0* ( 14 NPROL 4 NPROJ I 

IF  (IAMB  .EO.  •  .AMO.  ANO(IB.IAMP)  .EQ.  1)  IAMB*599. 

ENCOOE  (K0U#1026»IT0RE (3))  IAMB .NPROL , NPROJ, (PROL (I) ,1*1, NPROL) . 

1  (PRO J( IF. 1*1, NPROJ) 

102B  FORMAT  (I3,2I2.3X,60A10) 

NRCT0T*MCN*H¥£L*NP*NRATE*NR0B*ICCD*0 
ICOUNT *ICCUNT  ♦  KOU/IO 
OIAM3*6800./(OIAM*DIAM*DIAN) 

165  REAO  (  1,1000)  ICO. DAT A 
ICOH=ICO-14 
IF  (ICOH) 170,170,1 AS 
145  GO  TO  (150,155,160)  ,ICOH 
C  —  ROUND  SETUP 

ISO  OECOOE  (75  ,1028,OATA)  CASES, PLUGS, HA0S, AGENTS, PRIMERS, IPROL, IPROJ, 
1  IRDTEHP 

1020  FORMAT  (5A10.2I2.I3) 

ICASE=LOOK (CASES, NCASE .CASE) 

IPLUG*LOOK  (PLUGS, NPLUG, PLUG) 

IHAO*  LOOK  (MADS, NHAO, MAO) 

I  AGENT  *LOOK  (AGENTS, N AGENT , AGENT ) 

IPRIMER*LOOK (PRIMERS, NPRIMER, PRIMER) 

MRITE  (2,1029)  CASES, PLUGS , MAOS , AGENTS, PRIMERS , PROL (IPROL) , 

1  I ROTE HP, PRO J( IPROJ) 

1029  FORMAT  (6M  CASE*A10,5X ,5HPLUG*A10, 5X4HM AO* A10, 7M AGENT*  A10.5X 
1  7MPRIMER*  A10/5XA10 ,10H  PROL  AT  I4.11M  OEG.  PROJ*  A10) 

ICOUNT  *1  CO  UNTM 

ITORE ( ICOUNT) *OR  (SHIFT (ICASE ,54 ) .SHIFT ( IPLUG, 48) ,SHIFT( IMAO, 42) , 

1  SHI FT (I AGENT , 36) , SHIFT ( IPR I  HER , 30) , 3H IFT ( IPROL , 24 ) , 

2  SHIFT (IPROJ, 18) .SHIFT ( IROTEMP* 1 00,9) ) 

GO  TO  165 

C  —  SLOM  FIRE 

155  OECOOE  (75 ,1030, DATA)  ITIME, C*,P, VEL 

1030  FORMAT  ( 15 ,F5. 2,F5. 1 ,F5. 0) 

P*P*PRESF 

NROTOT  *NRO  T0T4 1 
ICM*.CM*0IAM3  (.5 
MCM*MAX0 (ICM.MCN) 

IVEL*VEL 

HVEL*HAXO(IPEL»HVEL) 

IP«P*10  4.5 

MP*MAXO(IP,HP) 

ICOUNT«ICOURT  4  1 
IF  (IVEL  .EO.  0)  I VEL* 0 
IF  (ITIME  .EO.  0)  ITIHE*0 
MRITE  (2,1031)  ITIME, CM, VEL, P 

1031  FORMAT  (3H  ATI6,11H  HOURS  CM*  F10.3,6H  VEL  *  F10.0.7H  PRES  *Ft0.l) 
ITORE  (1C0UNI7*IFUN(ITIPE,ICM,IVEL,'IP,1) 


ICOO*M AX  0( I COO i 3) 
GO  TO  16 5 


£  mm  CURST 

160  CE CODE  ( 75 , IB32.DAT  A)  IT iME ,CW, R ATE, NRDS.PRESL ,ICf ,1  CP 
PRSSL*PRESL«PRESF 

103?  FORMAT  ( 15  ,F 10. 2, FI  0. 0  ,1 10, FI  0. 1 ,211 ) 

IF  (ICV  .ME J  1)  ICV*0 
IF  (ICP  .ME;  11  ICP*0 

WRITE  1 2, 1033)  ITINE,NROS,RATE,CW,PRESL 
1033  FORMAT  1 3H  ATI6.UH  A  BURST  0FI5.10H  ROUNOS  ATF10.2»13H  RO/NIN.  CW 
1  «  F10. 3,12M  LAST  PRES  -  F10.1) 

ICN*CW*01AH3  +.5 
IRATE* 25 .•RATE  *.5 
IPRESL =PRESt* 10.  +.5 
MCW*M  AXO  (MCW.ICN) 

MP*M AX  0( IPRESL ,MP) 

NROTOT  =NROTOT ♦NROS 
NR08=M AXO (NROB ,NROS) 

MRATE*MAXO (PRATE, IRATE) 

ICCD*4 

1*2 

ITORE (ICOUNT*l)*IFUN  ( ITIME,ICW, NRDS, IPRESL, 2) 

ICCUNT=ICOUN?*2 

ITORE (IC0UN77=0R  ISHIFT (IRATE ,45 ), SHIFT tICV, 1) ,ICP> 

IF  (ICP  .EOJ  1)  CALL  BURST  (ICOUNT ,NROS, ITORE) 

IF  (ICV  .ECi  1)  CALL  BURST  (ICOUNT ,NROS, ITORE) 

GO  TO  165 
170  JK1-JK 

IF  (ISEAS ( 1, JK)  .NE.  0)  JK I*ANO t SHIFT (ISEAS (2, JK) ,-11) , 17775) 

CALL  NRITMS  (4, ITORE, ICOUNT, JK1, -1) 

ISEAS  (1 , JKT*OR  (SHIFT  (OATE(3), 51) , SHIFT  (3l»0ATE (1) +DATE (2) , 42 ) , 

1  SHIFT (ICOUNT, 30) .SHIFT (HRATE, 151 .SHIFT ( NROTOT, 3) , ICOO) 

ISEAS  (2,JKF*OR  (SHIFT (MCW ,4,5) .SHIFT (NVEL, 30 ), SHIFT(MP/10, 21) , 

1  NROB, SHIFT (JK1.11)) 

C  —  BITS  13  TO  21  ARE  UNUSEO. 

GO  TO  121 
13  ICCUNT *1 

DECODE  (20,1*36, DATA)  OATE.NCOS 
!  1036  FORMAT  (4157 

JK* JREC( ISEAS, OATE.NRECS ,7) 

ID=DATE ( 1) 

WRITE  (2,1017)  IOATE (IC) ,0ATE(2> ,0 ATE ( 3) 

ITORE (IC0UN7)*0R  (4,SHIFT( 0*NC0S,30) ) 

ICOUNT  =1 COUNT* I 
00  100  1*1, NCOS 
READ  (1,10301  DATA 
1030  FORMAT  (6A10)I 

ENCODE  (00, 1*30, ITORE (ICOUNT  ))  OAT A 
100  ICCUNT*! COUNT** 

ICCUNT*! CO UNT-1 
C  —  WRITMS  ITORE  TO  OISK 

WRITE  (2,1040)  (ITORE (I) ,1*2, ICOUNT) 

1060  FORMAT  (1X0010) 

JK1*JK 

IF  (ISEAS(l.JK)  .NE.  0)  JK1*AN0(SHIFT(ISEAS(2,JX),-11) ,17778) 

CALL  NRITMS  (4, ITORE, ICOUNT, JK1.-1) 

ISEAS  (1, JK7*OR  (SHIFT (DATE ( 3) ,51) .SHIFT (3I*0ATE (1)*0ATE(2),42) ,7) 
ISEAS  (2,JK)*IC0UNT  .OR.  SHIFT (JK1, 11) 

GO  TO  120 
ENO 

SUBROUTINE  MARRAV  (II, I2,MVEL,ICNM ,NRDS, IRATE, NROO.IO* ,IPRES , 

1  NSU8RE0) 

1BTTE  (I,J,K7*SHIFT(I, 1-J)  .ANO.  COMPL (MASK < 59 ♦J-K) ) 

IFUN1 (I,J,K,t)*  0R(SHIFT(I,45) ,  SHIFT  U,  30)  ,  SHIFT  «C,  15  )  ,L) 

IFUN2 (I, J, Kft.M)  ■  OR  (SHIFT (1,40) .SHIFT (J ,36) .SHIFT (K ,24) , 

1  SHIFT  (L, 12), M) 


D-4 


o  o 


I1*IFUN1 (IB  WE (11,46,60) ,MAX0(IBYTE(U,3l,45),MVEL>, 

1  MAX  0( IBYTE (1 1, 16,  30) , ICMM) , IBYTE(I1,1,15) aMROS) 

I?*IFUN7  (MAX«( IBYTE  112  ,45,60)  , IRATE)  ,HAXO(NROO , IBYTE (1 7, 37,48)  ), 
1  MAX8(tOI,IEYTE(I?,2S, 36) ),MAX>0(IPRES, IBYTE(I2, 13,24) > , 

7  MAXB( IBYTE (12,1,12) ,NSUBREC )) 

RETURN 

ENO 

SUBROUTINE  BURST  ( ICOUNT »NROS, IT CRE) 

OIPCNS 10 A  ITOREC1B08) ,L(683> 

RE  AO  I  1,1)  a(I),I*l,NROS) 

1  FORMAT  1 1615) 

L (NRCS*l ) *L (NR0S*2) *L  (  NROS  +  3) *0 
00  3  IL*1,NRQS 
S  IF(LIIL)  . EO.  8)  L IIL) *8 
M«  INRDS*  3)  /4 
00  7  1*1,  M 
ICOUNT*ICOUNT*l 

2  ITORE  (ICCUNTMOR  (SHIFT (L (4*1  ) ,45) , SHIFT (L (4*1-1) ,  38)  , 

1  SHIFT (L(4*I-2), 15), L(4*I-3)) 

RETURN 

ENO 

FUNCTION  LOOK  (CS,N,C> 

DIMENSION  Cf 30) 

00  1  1*1 ,N 

IF  (C(I).EQteS)  GO  TO  2 

1  CONTINUE 
N*N*1 
CIN)*CS 
LOOR*N 
RETURN 

2  LOOK*I 
RETURN 
ENO 

SUBROUTINE  GAU6IN  (NG, S6.NNG, ITORE, J,ISTD) 

INTEGER  SG 

CIMENSION  SCtNNG) , ITORE! 1008) 

DIMENSION  A(2) 

CATA  A  /4HUP  ,4H00MN/ 

IA*1 

IF  INNG  .EQW  12)  IA*2 
NGA*(NG* 3) /4 
NGE*4*NG A 

SG INGB)*SG  (NGB-t)«SG(NGS-2>*0. 

IF  <ISTO  .NP.  ■  >  GO  TO  28 
READ  (1,1)  (SG (I) ,1*1, NG) 

1  FORMAT  (1615) 

00  5  1*1, NG 

5  IF  (SG(I)  .EO.  0)  SG (I >*0 
GO  TO  7 

20  CALL  PBVP  (NG,SG,IST0,IA> 

7  00  2  1*1, NGA 
4*J*1 

7  ITORE (J> *  0R(SG(4*I> , SHIFT (SG (4*1-1) ,15) .SHIFT (SG (4*1-2) ,38) , 

1  SHIFT (S8 (4*1-3) ,45)) 

WRITE  (2,18)  NG,A(IA), (SG( I) ,1* 1,NG) 

IB  FORMAT  ( 1X15, 1XA4, 17H  REAOINGS  F CLLON.  /(17I10)) 

RETURN 

END 

SUBROUTINE  PBYP (NG,SG, I A, IB) 

—  READ  GAUGE  BATA  FOR  DISTANCES  OTHER  THAN  STANOARO.  CONVERT  TO 

—  STANOARO  REAOINGS  ANO  STORE. 

DIMENSION  StfNG) ,SOR (100  ),SGR(10B) 

COMMON  CRAPI3618) ,SG1( 112) ,SGC00E(56) 

COMMON /ONE /TRASH (3), NOB( 2) ,TRASHN(155) 

INTEGER  S6 

READ  (1,1007  IORO.NACT  ,PT ,  PACT , (SOR (I) ,3GR (I) ,1*1 ,NACT) 
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100  FORMAT  (2I5|2F5.2/(0(F5.Z,F5.3 ))) 

DO  101  1*1 (NE 

101  SG(I)*0 

GO  TO  (1,2)  IORO 

1  C0RR*PACT-P7 
00  3  1*1, N ACT 

3  SOP(I)  *SDR  (IT4CCRR 
CO  TO  $ 

2  CORR*PACT*PT 
00  0  1*1, NG 

A  SORII) *CORR»SORII) 

SDR (NG»1 ) *S00 (NG) 41. 

—  DISTANCES  ARB  NON  MEASURED  FROM  THE  PROPER  REFERENCE. 

—  FIND  OESIREO  READINGS  er  INTERPOLATION 
S  CONTINUE 

DO  7  1*1 ,NG 

IFISORIl)  .Ge.SGlII))  GO  TO  15 
7  CONTINUE 

CALL  OUT  (NNPBTP) 

15  K*1 

IF  (I  ,E0.  IT  GO  TO  16 

IF  (S0R(1)<»SG1(I-1)  ,LE.  0.15)  SGI 1-1) *SGR(1)  *1100. 

16  DO  25  J=I»N# 

SGA*SGl(100«  (IA-1)4J) 

30  IFIS0RIK41)  .LE.  SGA  )  GO  TO  35 
K*K«1 
GO  TO  30 

35  SGIJ)  *  1000.  •  1.0005+SGR IK)  *  (SGRIK41)  -SGRIK))  • 

1  (SGA  -  SORIK))  /  I  S0RIK41)  -  SDR  IK )) ) 

25  CONTINUE 
RETURN 
ENO 

FUNCTION  JRCC t ISEASfOATE,NRECS,ICOO) 

01 FENS ION  ISEAS 12, 1000 ) ,0ATE(3) 

INTEGER  OATE 

I1*0R ISHIFT (DATE  13) ,51) .SHIFT  1 31*0 ATE (1) *0 ATE  1 2) ,4?) ) 
00  1  I*3,NREGS 

1 2* AND  USE  AS (1,1) ,77777700  000  0000000008) 

IF  (12  .EO.  ID  GO  TO  3 
IF  112)  1,2,1 

1  CONTINUE 
I*NRECS+1 

NRECS*500*  INRECS/500) 4500 

IF  INRECS  ,GT.  1000)  CALL  0UTI6HJREC) 

2  JREC*I 
RETURN 

3  IC*ISE AS  (III)  .ANO.  7e 

IF IIC  .NE.  1000  .ANO.  IC  .NE.  ICOO-1)  GOTO  1 
JREC*I 

WRITE  (2,10) 

10  FORMAT  (10H  OVERWRITE  RECORD.) 

RETURN 

ENO 
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PROGRAM  BANKL 


PROGRAM  BANKL  HNPUT*65,OUTPUT«65,T  APE1«INPUT,  TAPE2*0UTPUT  ,T  APE4) 
IMPLICIT  LOGICAL  (E> 

C  —  SORT  SUBFILE  SEARCH  ARRAYS  BY  DATE. 

COMMON  INOEX  <201) ,INDEXS<1001> , ISE AM (2,2081 .ISEAS(2, 1 000) , 

1  0ATAC8)  .SGI (1001  ,SG2(12)  ,SG<56) 

OIMENSION  Red  (160)  ,IS  (100  8) , IT (2, 1000) 

COMMON  /ONE/  COOE . NG1 ,NG2. N0B1.N0B2.QI AM .NG.NRECM.SA VE 1. SAVE 2. 

1  CASE! SB) .PLUG (30) ,NAD( SO) ,PRINER< 30 ) , AGENT (30) 

EQUIVALENCE  FREC1.C00E) 

CALL  OPENRE  «  4) 

REAO  (1.1000)  IGUN 
1000  FORMAT  (1$) 

1  CALL  GUNCAL  t  4. IGUN. E NEXT , JJ) 

IF  (ENEXT )  STOP  100 
NRECSsAN0(7777B,ISEAM(2,JJ)) 

CALL  REAOMS  t  4  ,  INOEXS  .NRECS+l . J J) 

CALL  STINOX  «  4, INOEXS ,NRECS*1) 

CALL  REAOMSt  4.ISEAS. 2*NRECS»1> 

00  10  Ix3.NR£CS 
IF  (ISEAS(l.I)  .EQ.  0)  GO  TO  S 
10  IS(I)*OR(  7B  .AND.  ISE  AS (1 .1) . 

1  SHIFT  (ISEAS(l.I) .-39)  .AND.  77777708) 

NRxNRECS 
GO  TO  15 
5  NR=I-t 
15  DO  30  I«3,NR 
IMINV* 77 77717 B 
00  20  Jx3,NR 

IF  (  IS(J>  iGE.  IMINV)  GO  TO  20 
KxJ 

IMINVsIS(J) 

20  CONTINUE 

IS (K) = 7777777 B 
IT  (1.1  )>  ISEAS  ( l.K) 

30  IT (2,1 )*ISEAS (2.K) 

CALL  NPITMS  (  4,IT,2*NRECS .1.1) 

CALL  STINOX  »  4, INOEX . NRECM+1 ) 

REAO  (1,1000)  IGUN 
IF  (IGUN  .NE.  0)  GO  TO  1 
CALL  CLOSMS  «4> 

ENO 
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PROGRAM  BANKO 


PROGRAM  BANKO  ( INPUT*65,DUTPUT«5 14 ,T APE4=5 14 ,T APE1*INPUT, 

1  TAPE2«OOTPUT) 

IMPLICIT  LOGICAL  (E> 

COMMON  INOEX  ( 201) ,INOEXS( 1001) , ISEAH ( 2,700) ,ISEAS(2,1000) , 

1  OAT  A( 0E,SG1 (100) ,SG2( 12) ,SG (56) 

DIMENSION  SRI ( 100) , SR 2 ( 12) 

COMMON/ONE/  GOOE,NG1,NG2«NOB1,N9B2,OI AM,NG ,NRECM,SAVE1 ,SAVE2 , 

1  CASE! 3» , PLUG (30) ,NAO (30) , PRIMER ( 30), AGENT < 30) 

DIMENSION  REOl (160) ,  DATE (3) ,SG (56) ,PR0L(3B) ,PROJ (30) , 

1  I HELP ( 16  ),IH(?4  > ,10 ATE (3) ,10 AT  1(3), ID AT 2(3) 

EQUIVALENCE  (REC1,C00E) , (OATE.IDATE) 

COMMON  /THO/INOM (201) , MINV,HAXV,HOL,ICOH ,IRMIN ,IRMAX, JGUNS, 

1  I0DI,H0LS,K00E(8),M  ,  J,  INOL  (570)  ,  JM 

DIMENSION  ROGUN (200) ,N0RS(210) ,DATES(12) 

COMMON  /THREE/  ITORE(IOOO) 

DIMENSION  HOLD  (  0,12) 

IBTTE  ( I,  J,  KT*SHIFT  (1 , 1-J)  .AND.  COMPL (MASK (59* J-K) ) 

CALL  OPENRE  f  4) 

CIAN3*6000,F(DIAM*OIAM*OIAM) 

999  READ  (  1,1000)  ICD,OATA 
1000  FORMAT  (15 ,7A10 ,A5) 

598  IF(ICO-l)  110,1,105 
110  CALL  STIN0X14, INOEX  ,201) 

CALL  CLOSMS  «  4) 

STOP 

1  OECODE  (75, 1002, DATA)  NGUN, (IHELP(I) ,I*1,NGUN) 

1002  FORMAT  (15157 

DO  100  I«1 ,NGUN 

CALL  GUNCAL  (  4,IHELP( I) .ENEXT, INOM( I) ) 

IF  (ENEXT)  STOP  1 
100  CONTINUE 
JGUNS*NGUN 

OATA  HOA/IOHGUN  NOS  / 

HOL*HOA 
GO  TO  150 

105  CECOOE  (75, 1004, OATA)  AMIN V, AMAXV 
1004  FORMAT  (2F5.0) 

ICOH-ICO-1 

IRMIN«4 

IRMAXaNRECM 

GO  TO  (2, 3,0,5, 6, 7,0)  ICOH 
C  —  VELOCITY 

2  MIMV>AMINV 
MAXVaAMAXV 

CALL  SELECT  (1,31,45) 

GO  TO  150 

C  —  CHARGE  NEIGMT 

3  CONTINUE 
MINV«OIAM3*ARINV 
MAXV«0IAN3*AHAXV 
CALL  SELECT  (1,16,30) 

GO  TO  150 

C  —  NUMBER  OF  ROUNDS  SHOT 

4  MINV*AMINV*41 
MAXV* AMAXV+Ll 

CAU  SELECT  (1,1,15) 

GO  TO  150 

C  --  RATE  OF  FIRE  (ROS/MIN) 

5  MIAV«25.*AMINV*.l 
MAXV«25»* AMAXV4.1 
CALL  SELECTI2, 49,60) 

GO  TO  150 
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C  —  NUMBER  RCS /BURST 

6  NlN¥*AMINV*il 
HAXV*AMAXV*AS 

CALL  SELECT  (2,37,40) 

60  TO  15# 

C  —  GAUGINGS 

7  NIAV*1000.*AMINV*.l 
MAXV*1O0O.*AMAXV*. 1 
CALL  SELECT  17,75,36) 

CO  TO  150 

C  —  MAX  PRES 

0  NlNV=ANINV*(5 
HAXV*AMAXV*t5 
CALL  SELECT  17, 13.741 
150  WRITE  <  7,10*6)  JGUNS , WOL 

1006  FORMAT  ( 1H0I5  *  77H  GUNS  MERE  CHOSEN  BASED  ON  AtO.ZOM  LIST  OF  GUN  NU 
1 MGERS  FOLLOW!  ) 

IF  (JGUNS  .NE.  0)  GO  T£  155 
C  —  EVP ASS  UNNECOEO  CAROS 
160  READ  1000>I60, DATA 

IF  (ICO  .LErf  10)  GO  TO  598 
GO  TO  160 

155  00  165  I*1,0GUNS 
IN*IN0M( I) 

NOGUN ( I) «I BYTE (ISE AM (1, IN) ,66,60) 

165  N0PS(I)»IBV7E  (1SEAM(Z,IN) ,1,17) 

WRITE  (  Z, 10*6)  <N0GUN(I),I=1, JGUNS) 

1006  FORMAT  (1X1ZI10) 

17*1 

170  READ  (1,1007)  (HOLD C I , 17) , 1*1 ,8) 

1007  FORMAT  I6A10) 

CECOCE  (5,1BOO,HOLD(1,I7>)  ICO 
I2*I7vi 

'IF  (ICO  .GTf  10)  GO  TO  170 
I7*IZ-Z 

C  —  CALL  UP  DESIRED  SUBINOEX 
00  997  KITTY*!, JGUNS 

CALL  REAOMS  »  4,IN0£XS(I>,  NORS ( KITT  Y) >1 ,1 NOM( KITTY) ) 

CALL  STINDX  1  4, INDEXS , NORS (KITTY) *1) 

CALL  REAOMS  «  6, I SC AS,  Z*NORS(KITTY) , 1) 

C  —  SELECT  RECORDS  TO  BE  READ  FROM  DISK 
CO  Z57  IV*  1, 17 

CECOOE  (80 ,1800,HOLO(1 ,1 Y) )  ICO, DATA 
995  IRMIN*3 

IRMAXsNORS (KITTY) ♦! 

IF  (ICO-ll)  998,700, 305 
C  —  SELECT  BY  RECORD  NUMBER 

ZOO  CECOOE  (75, 1010, DATA)  NS, (INDL (I) ,1*1, NS) 

1010  FORMAT  (Z5I3) 

DATA  HOA 1/ 10MREC0R0  NO  / 

HOLSsHOAt 

IF  (NS  .EQ.  0)  GO  TO  Z01 
J«NS 

GOTO  Z50 

701  J*IRNAX-IRMtN»l 
00  Z03  I*1,J 

!  703  IN0L(I)*I*7 

GO  TO  Z50 

105  IF  (ICO  ,NE»  1Z»  GO  TO  710 

CECOOE  (75,t01Z,OATA)IOATl,IOATZ,N,(KOOE(I),I*l,M> 

1017  FORMAT  (15157 

MIRV  *SMIFTWOD(IOATl(3),10O)  ,9)  •  OR,  (31*10  AT  l  ( 1)  *10  ATI  (?) ) 

MAXV  *  SHIFTHMOO (IDATZ (3) , 100) , 9)  .OR. (31*10 AT Z( 1) aIOATi (Z>) 

CALL  SEL4  11,43,60) 

GO  TO  250 

\  Z10  ICOI*ICO-12 

) 

\ 

I 
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DECODE  <75 ,1004, OAT A)  AMIN  V »  AMAX  V 
GO  T0<13,14,15,16,17,1<,19),IC0I 

13  CONTINUE 
MINV*0IAM3*AMINV 
M AXV*0 I AM3* AN AX V 
CALL  SEL2  (2,46,60) 

60  TO  259 

14  MINV*  AMI NV  ♦  •  1 
MAXV*AMAXV+Rl 
CALL  SEL2  (1,4,1?) 

GOTO  25B 

15  NINV*25.*AMINV*.5 
MAXV*25«* AMAXV*,5 
CALL  SEL2  (1,16,39) 

GO  TO  250 

16  MIN Vi AMI  NX 4* 1 
MAXV«AMAXVA*'l 
CALL  SEL2( 2*1,12) 

GO  TO  250 

17  MINV*AMINV*(1 
MAXV*AMAXV«J1 
CALL  SEL3  (1,20,42) 

GO  TO  250 

10  MINV* AMI NV ♦ 15 
MAXV*AHAXV4«5 
CALL  SEL2  (2,22,30) 

15  NINV*AMINV4|5 
MAXV*AMAXV4V5 
CALL  SEL2  (2,31,45) 

—  MRITE  OUT  DATA 

—  THE  MORO  NUMBERS  Of  THE  INDEX  ARRAV  CONTAINING  DATA  OF  INTEREST 

—  ARE  STOREO  IN  INOL. 

250  CONTINUE 

MRITE  (2,1015)  NOGUN (KITTY ) ,J 

1015  FORMAT  (11HGUN  NUMBER  I6,1H,I6,19H  RECORDS  REOUESTED.) 

IF (J)  251,251,252 

251  MRITE  (2,1013) 

1013  FORMAT  (AH  NO  DATA  ) 

GOTO  256 

252  00  255  LOOPAI.J 
LOOsINDL  (LOOM) 

ISEA1*ISEAS(1,L00  ) 

ISEA2*ISEAS(2,LOO  ) 

J1*I8VTE (ISE*2 ,12,21) 

ISEA3*AN0(ISEA2, 37776) 

IF  (ISEA1  .EQ.  0)  GOTO  257 
10 ATE (1) *I0YOE (ISEA1,52,60) 

IOATES=I0YTe<ISEAl,43,51) 

ICATE  ( 3)  *  ( IOATES-O/31 
IOATE ( 2) *1 DATES-3 1*10 ATE <3 ) 

ID ATE  1*10 ATE 63) 

CATA  DATES  /SH JAN, 3HFE E,5HM ARCH, 5HAPRIL, 3HMAY , 4H JUNE, 4H JULY, 3HAUG, 
1  4HSERT ,3H0CT , 3HN0V»3HGEC7 

MRITE  (  2,1014)  DATES! IOATE 1) ,I0ATE(2),I0ATE(1) 

1014  FORMAT <1HQ7IH0A5,I3,4H,  1912) 

IC1*AND  (76,ISEA1) *1 

GO  TO  (260  ,201, 262, 262, 262, 264,264, 267), IC1 
C  ~  PLUG  GAUGE  ONLY 

260  CALL  REAOMS  6  4, ITORE , 2, J1 ) 

MRITE  (  2,1016)  IT0RE<2) ,IT0RE(2) 

1016  FORMAT  (20H0RLUG  GA6E  READINGSlA 5, 5H  AND  R5) 

GO  TO  255 

C  —  STARGAUGE  REOORO 

261  CALL  REAOMS  I  4, ITORE, ISEA3, Jl> 

MRITE  (2,1016)  ITORE (2) , IT  ORE (2) 

NG 1*77777777770  .ANO.  ITORE(l) 


NG2*IB YTE  (ITORE(l) .31,60) 

CALL  SGR  I  NS 1+  3, IT ORE , l,NOBl *SG1 ,SR1 )  _  _ 

IF  (NG2  .WE.*)  CALL  SGR(NG 2*3, ITORE* 2»N0B2 ,SG2 *SR?) 

GO  TO  255 
C  —  FIRING  DATA 

262  ISEAH=I8YTE»ISEA1,31,42) 

CALL  REAOMS  14, ITORE ,1 SE AH, Jll 
WRITE  (2 ,1 Otl )  ITORE(l),ITORE(i) 
till  FORMAT  f IX  A5  »  20H  PREVIOUS  ROUNDS  OR,  R5,5H  ESR.) 

WRITE  <2, 1616)  ITORE (2) , IT ORE (2) 

DECODE  ( 10,  Hie, ITORE < 3))  IAMB, NPROL, NPROJ 

1016  FORMAT  ( 13,212) 

IF  (IAMB  ,NI.  999)  WRITE  (2,1017)  IAMB 

1017  FORMAT  (25H  AMBIENT  TEMPERATURE  MAS  14) 

11=10* (NPROL+NPROJ)  _  „  . 

DECOOE  (II,  10  19, ITORE (4))  (PROL (I ) , 1*1, NPROL) , 

1  (PROJ (f) ,1*1,  NPROJ) 

1019  FORMAT  (6A Iff) 

HE XTI=4*NPROL* NPROJ 
C—  ROUND  SETUP 

271  IF  (NEXTI  ,GT»  I SEAM)  GO  TO  255 
IT*ITORE  (NEXTI) 

N£XTI*NEXTI*1 
IOIR* 1 +ANO (78, IT) 

GOTO  (270,275,280) , IOIR 
270  CASES* CASE (I8VTE(IT*55,60)) 

PL  UGS  =  PLUG (I8VTE (IT, 49, 54)  ) 

WACS=WAO(I  BYTE (IT, 43, 4 8) > 

AGENTS=AGEN7fIBYTE (IT ,37 ,42)) 

PRIMEPS*PRIMER(IBVTE (IT, 31,36)) 

PRCLS  =  PROL (IBYT£(IT,25,30)  ) 

PROJS  =  PROJ(IBYTE (IT, 19,24)  ) 

WRITE*1  (2!l02ff)aCASEslpLUGs!MAOS,  AGENTS ,PRIMERS,PROJS,PROLS,IRDTEMP 
lOEOiFORMAT^eHOCASEi^AH.a^c^UG.  ^ja|PRJ0ELL;KT ,  aio,15H  CONDIT 

2I0AE0  ATI5.9H  DEGREES.) 

GO  TO  271 

275  ITIME*IBYTE HT ,46,60) 

C  —  SINGLE  FIRE 

CW=FLO AT (I eTTE (IT, 31 ,45) ) /DIAM3 
VEl=FLOAT ( IBYTE (IT, 16, 30)) 

PRES*FLOAT (I0YTE (IT ,4, 15)) 710. 

WRITE  (  2,  1022)  I  TIME  ,CW,VEL,PRES  A.tT.t  «  „  ,  »  c/c 

1022  FORMAT  (6M  TIME  116 ,  BN  CMARGE IF 9 . 4, 16M  LBS.  VELOCITY!  F6.0.15M  F7S 

1.  PRESSURE IF6, 1 ,6M  XPSI.) 

GO  TO  271 
C  —  RAPIO  FIRE 

260  ITIME=I8YTE1IT ,46,60) 

CW=FLOAT (IBYTE (IT, 31,45) )/CIAM3 
NROS*IBYTE (IT, 16, 30) 

PRESL*FL0ATIIBYTE(IT,4,15) )/li. 

IT»ITORE (NEXTI) 

NEXTI*NE XT  I* I 

RATE-FLOAT (I8YTEUT,46,60)  >/25. 

WRITE  (  2, 1024)  ITIME,CW,NROS,RATE,PRESL 
1024  FORMAT  (6H  3IMEII6.8M  CM ARGEIF9, 4,110, 16M  ROUNOS  FIRED  ATF10.2,11M 
1  ROS/MIN.  19H  THE  LAST  PRESSURE  lF6, 1) 

IF  (AN0(1B,IT)  .EQ.  1)  CALL  RBU ( NROS , 1 , ITORE, NEXTI) 

IF  (AN0(2B,IT)  .GT.  0)  CALL  R8U ( NROS ,2, ITORE , NEXTI) 

GO  TO  271 

264  WRITE  (  2,1026)  ICl 
1026  FORMAT  (  1H8/12HOERROR~ICI«I2) 

STOP 

C  —  ALPHA  RECORD 

267  CALL  REAOMS  *4 , ITORE, I SEA3 , Jl) 


WRITE  <2,10281  < IT  ORE (I) >I=2,ISEA3) 

1028  FORMAT  < 1X8*10) 

255  CONTINUE 
257  CONTINUE 

25E  CALL  STINOX  (A,  INDEX  ,201) 

997  CONTINUE 

CECOOE  ( SO,1808,HOLO< 1  ,12*1) )  ICO, DATA 

GO  TO  998 

ENO 

SUBROUTINE  SELECT  <N,Il,I2) 

DIMENSION  H0<7),MP<8) 

COMMON  INDEX  < 20 1) • INOEXSC 1001) , ISERM < 2,30 0) ,ISERS <2 ,1 000) , 

1  OATAf 8>,SG1I100),SG2(12> ,SG  <56) 

COMMON /TNO/INOM (200) , K ,L ,N0L , ICOH, IRMIN, IRMA  X, JGUN ,  ICCI, 

1  HOLS, KOOE<«) ,M,J, INOL (580)  ,JH 

IPYTE  <I,J,KM=SHIFT<I, 1-J)  .AND.  COMPL <M AS < < 59* J-K) ) 

DATA  HO/lOMfELOCITY  ,  10HCHARGE  NT  ,18HN0  OF  RCS  ,’IOHBURST  RATE, 

1  1 OHROS/GURST  , 10HB0RE  OIAM  ,18HMAX  PRES  / 

JGUNxO 

CO  1  I =IRMIN , IRM AX 
II=IBYTE  USER MIN, I) ,11,12) 

IF  <11  ,LT.  «  .OR.  II  .GT.  L)  GO  TO  1 

JGUN=JGUNM 

INDM(JGUN) -l 

1  CONTINUE 
HOL=HO  CICOHK 
RETURN 
ENTRY  SEL2 

DATA  HP/ 10 HOATE  ,10H08  OIAH  ,  1 OH BURST  RATE,  10HR0S  FIRED  , 

1  10HCHARGE  NT  ,  10HVEL0CITY  ,  1SHPRESSURE  ,  IOHROS/PURST  / 

J=0 

CO  2  IxIRMIN.IRMAX 
II=IBVTE  (ISERS(N,I),I1,I2) 

IJ*7e  .AND.  ISERS (1,1) 

IF (III  .IT.  K  .OR.  II  .GT.  L )  .OR.  IJ  .EQ.7  .DR.  IJ  ,LE.  DGOTO? 

J=J*1 

INOL ( J) x  I 

2  CONTINUE 
HOLxHP  <ICOI)l 
RETURN 
ENTRY  SEL3 
Jxfl 

CO  3  IxIRNIN.IRMAX 
IIxIPYTE  <IS£RS <N, I) ,11,12  ) 

IJ*7B  .AND.  ISERS  < 1, 1 ) 

IF  (JJ  . GE.2  .OR.  II  .LT.  K  .OR.  II  .GT.  L )  GO  TO  3 

JxJtl 

INCL < J)xl 

3  CONTINUE 
HCLS*HF< ICO IT 
RETURN 
ENTRY  SELA 
J«0 

DO  A  IxIRNIN.IRMAX 
IJ*7B  .AND.  ISERS  <1,X) 

DO  5  I9«1,M 

IF  (IJ  .EO.  KOOE  <I9) >  GO  TO  6 
5  CONTINUE 
GO  TO  A 

E  1I«IBYTE<ISERS<N,I),U,I2) 

IF (II  .LT.  K  .OR.  II  .GT.  L)  GO  TO  A 

JxJ.l 

INOL  < J)*I 
A  CONTINUE 
RETURN 
ENO 


D-12 


SUBROUTINE  R8U  IN, I ,  ITCRE,  NEXTI  1 
CIFENSION  4(21 , 1  TORE (1006) ,PAR(6Bff) 

SEAL  IBYTE 

DATA  A/HHPRfSSURES  ,  1DHVEL0CIT IES/ 

IBYTE  ( I, J*  KX*6*FL0ATISHIFT  (1 , 1- J )  .ANO.  COMPLINASK  (59*  J-Kl  >) 

I2*(N*31 tk 

P*1 

IF  (I <  EQ. 1 >e=(. 1 

CO  1  11*1,12 

IT*IT0R£(NEXTI»I1-11 

P AR (6*11-31 -IBYTE (IT, A6, 611 

PAR(G*Il-2l*I8YTEdT,31,A5l 

PAM6*  11-11  *18  YTE  (IT,  1 6,  38) 

1  FAR(6*Ill*IBTTEdT,l,i5> 

NE»TI*N£XTI*I2 

UNITE  I  2,21  All) , (PAR  III, 1*1, N) 

2  FORMAT  I  7H  BURST  A1D,32H  FOLLON.  (READ  ACROSS  THE  PACE. 1/ (1X1 2F1B 
1.11  I 

RETURN 

ENO 

SUBROUTINE  SCR  (NT ,ITORE ,ITIME, NOB ,SG,SR) 

DIMENSION  IT ORE (100B1 ,SG (NT I ,SRI NT1 , TYPE (21 
REAL  IEYTE 

DATA  TYPE  /5H ALPHA, 5HGAHPA/ 

I8YTE (I, J, K1*FL0 AT (ANO (SHIFT (I,  l-Jl , COMPL (MASK (59* J-Kl  1 1 1  21000 . 
ICT*NT Ik 

IF  (ITIME  .20.  11  ICOUNT *2 

DO  1  1*1, ICT 

ICOUNT *1 COUNT  ♦  1 

IT*ITORE (ICOUNT1 

SR (A* I  -31*18YTE(IT,46,6B1 

SR (6*1  «21*t8YTE(IT,Jt,651 

SR (4*1  “11 *!BYTE (IT, 18 ,301 

1  SRI4*I  l*ieSTE(IT, 1,151 
NG*NT-3 

NRITE  (  2,2T  TYPEdTIMEl  ,  SRINOB1 ,  (SGdl  ,SR(I>  ,  1*1, NG1 

2  FORMAT  (21M8STARGAUGE  READINGS  (A5,25H1.  THE  ORIGIN  READING  I 

1SF7.3, 1H./1MD6 (20HOIST  ANCE  READING  1/11X6 (FIB. 2, FID. 3111 

RETURN 

ENO 


D-13 


o  o 


PROGRAM  POINT 


PROGRAM  POINT  (lNFuT=256,0UTPuT=256,TAPE4=5l3,  T  APE  1*  Itdtlt-J 

1  INPUT, TAPt2=0UTPLT)  UflOllt 

IMPLICIT  LOGICAL  (E)  o0j12‘ 

CCMHON  INDEX  (231) ,  INDEXSdO  It)  .ISLAM! 2,  £1,3)  ,  lit  AS  I  2,  It  3  3  )  ,  00)130 

1  OATA(C),SGl(lb3),SG2(12) ,SG(56)  t.'114'i 

CCHNON  /ONE/  CuOfc  ,  N  OA  •  HUo  ,  NC61  <  NC62  ,u  I A  N  ,N& ,  Nncu  H,  SA  ,  l1  •  S  A  V  t"  2 ,  wQjl5L 

1  CASE  (30  ,FLLG(30)  ,HAD!30>  ,PRIM£R(3C)  ,AGlI  -T(3C>  ut-UEO 

DIMENSION  ITLRL  C IS  30 )  ,  IS  A.t  (100  G)  .RFC  I  (160  l  ,ui  S  T  ! 15 ) ,  IlIST  (l  5  J ,  3bU7: 
1  JlIST(6)«  ShC  I  (  b  J  .  )  ,SuAR:(t,5<>0)  ,  I  S  G  (  6  )  ij 

DIMENSION  IlISTl  (IS)  0,U9: 

OIMENSIOR  SRI  (lbb),SS2(12>  it  j2uC 

ECUIYullNCE  (RlCI.COOEI  au’211 

OATA  (SHOT  (1)  ,1=1, 5bu)  /5Qt)*ltOCuC.I./.NRCCT/t/.,  lE&CT/.,/  jjJcZj 

IEYTC  (I,J,K)=  ShaFT  ( 1 ,1-J)  .AND,  COMf  L  (N ASK  (S  9 ♦  J- K)  )  tb  123,', 

-“THIS  PROo-tAr  RlLL  FETCH  RaA*  vS  I  UHcES  OF  SGUNJS  fjn'3  CATt  FCr  l)jj£43 

FoCTTING.  Oj12E.' 

CAuL  CONiitC  (SUlNfUT)  jC926:- 

CALL  CONNEC  (6lOUT PUT)  0Cuc7j 

PAINT  1  j4‘  0C128' 

REAL  10  70 , HELP  tOJ2Sb 

1074  fCMMAT  (Ali)  bu j29r 

IF  (HEtP  .tC.  2LN0 )  GO  TO  150  i)oG300 

PAINT  lu5t>,  (Sul  ( 11 1  ,1 1=1 ,  KG  A )  itC-ilL- 

1050  FC-lMAT  (” JLOCil-  1  FCH  ROUNC  COUNT  FROM  ISFAS  AvstY,  =2  FCR  NUM9EP  Cuj32r 

UN  RECOnC.'V"  =3  fUr  tSN  COUNT  FR OH  USER  FUNLTIUN,  ->•  FG-,  £5°  FRCMj3jJ3 

21  Sl AS  A«PAr“/“  FOSSiaLE  STArGAU»£  DISTANCES  (ALPHA)  FCLlO«I“/  b093«C 

3(  IX  9F  6,  2)  )  00J35b 

PRINT  i t e” , (S02 ( II ) » I 1= 1 , NG5 )  LtJ3bS 

1060  F  Ln  MAT  (“POSSIolE  STAR&AUGl  CISTANCES  (CAr.nA)  F  t  LLC  n  I "/ ( 1  x9F8 .2  )  I  a  j  -  3  7  _• 

CALL  CFtNKE  (A)  0D)38C 

15C  OIAH3— 6(iU0,/GI4rt#*3  Qjjo90 

PRINT  ltcj  ?ti)40n 

ID  AO  f  Cn  MAT  (“  UL  YOU  NEED  INSTRUCTIONS?")  tbJ-.lt 

1020  FORMAT  (“ENTER  GUN  NUrtaES ,  JCuOE“)  0 0U.2T 

1  READ  (1,*  )  I&UNNG, JCCCE  OGJt’O 

IF  (IuuNNO  .EO.  0)  CALL  CLOSM. (4)  j0)-»40 

If  (IuUHNC  .EC.  j)  STOP  i.TH5l 

CALL  GUNCAL  (  4, IGUNNU.ENEXT.LGUN)  OcOaEO 

IF  (ENEXTI  CALL  OUT  (5HPCINT I  &JOh75 

NCRS  =  IdY  T£  ( lit  AH  ( 2,  L  uUN)  ,1,12)  fj)-83 

3— —CALL  UP  SUoINOEX  009493 

CALL  REAtHS  I  4,IN3EXS,NORS*l,LGUN)  00950a 

CALL  STINCX  (  4,INDEXS,NOKS  +  l)  0G951.' 

L«LL  RCACMS  (  4,ISEAS»2*N0SS»1)  (JOJ 52: 

PRINT  10  30  L  C  3 53'J 


CALL  CFtNKE  (4)  00)38: 

15C  OIAH3— 6(iuO./CIAH#*3  Qjjo90 

PPlNT  I.cj  0t040n 

1040  FCrMAT  (“  uG  YLU  NEEG  IN&TrUCUONS?")  tbJ-.li 

1020  FORMAT  (“ENTER  GUN  NUrtaES ,  JCuOE“)  0  JK2T 

1  READ  (1,*  )  I&UNNG, JCCCE  0CJ^33 

IF  (IuuNNO  .EO.  0)  CALL  CLGSM. (4)  j0)-40 

If  (IuUHNC  .EC.  j)  STOP  i.TH5l 

CALL  GUNCAL  (  4,  IGUNNU.ENtXT.LGUN)  Ot0-.ES 

IF  (ENEXTI  CALL  OUT  (5HPCINT I  &JOh75 

NCRS  =  IdY  TE  ( lit  AH  ( 2,  L  uUN)  ,1,12)  fj)-83 

3— CALL  UP  SUoINOEX  009493 

CALL  REAtHS  I  4,IN3EXS,NORS*l,LGUN)  JC350J 

CALL  STINCX  (  4,INDEXS,NOKS+l)  001513 

L«LL  RCACMS  (  4,ISEAS,2*N0SS,1)  ()0J 52; 

PRINT  10  30  0  t  3 53'J 

1030  FCRMAT  (“  ENTER  1  FOR  ALPHA «  2  FOR  GAMMA  (N'UM  j£  S  OF  uISTANCiS!  CIST.S054j 


1  ANCES") 

READ  (1,*  I  10F.il, (lIST(I).I-I, XI) 
El)P=IUP  .EQ.  1 
IF  (EUP)  GO  TO  10 
00  15  1*1,11 
00  2U  3*1, hGc 

IF  (AoS(CIST  (1 ) -SG2 { J) )«&T •  3.11  GO  To  20 
ILIST  (I)*J 
GO  TO  IS 
20  CONTINUE 
ST0P2 

15  CONTINUE 
GO  TO  3S 
10  00  25  1*1,II 
00  30  J»1,NGA 


w  0 ) 553 
00  J5b'' 
0  DCs  70 
d  C  )58  j 
d  3  959r 
juOfcc: 
t)  3961-' 
dTiAbao 
00 0o33 
0  93b43 
0UJ65C 
0  OOobO 
OC  3  67.1 
0Q‘*66r 
003697 


if  (Aoi  luiSI  ill -SGI 1  Jit  .01.  -.11  00  ru  ro 

44./  4i) 

HIST  (XI  s J 

0  Ow7 1 J 

GC  TO  25 

83072'' 

38 

CCNTlNl-L 

003730 

STOf  3 

400743 

» 

CONTINUE 

60.75* 

(LIST*. TRUE. 

L0I76C 

OC  40  1*1. IX 

3 (0770 

00  45  J*1«NGE 

G  .  0  7  o  0 

IF  (Aoi(GlST <I>-$62IJ)>,GT.  0.1)  00  TO  45 

0.  179) 

IliSTl <1 1* J 

OOloOO 

G.  TO  40 

4  0381'' 

CONTINUE 

•0362) 

eUST  =  .f  ALSO. 

OOfleJ) 

60  TO  35 

300643 

♦8 

CONTINUE 

0  00c5C 

35 

NSU8=1 

00086C 

NGOCT* J 

0  u  0  c  7  L 

NESR*  0 

003883 

EG AUGt=. FALSE  . 

OC J49C 

ESTART*. TRUE  . 

ooosm 

NRcCS=ANC(77 /7d,ISEAM(2.LGUN)> 

000913 

00  50  I=3,N3ECS 

3u  3a2f> 

ISlA1=1SEAS(1,1I 

fl  .  J9  3C 

IF  (ISEA1  .EC.  81  GO  TO  51 

0  CC943 

ISLA2=IStAS(<,i) 

403557 

Jl* lOYTe (ISEA2.12.2l) 

003960 

XL1*AN0(73,ISEa1I+1 

003970 

ISs.A3  =  Au0(lSEA2,37778) 

000960 

GO  TO  ( 9 3 .  55  . fc .  .  60  .  GO  . 5 3 . 50  .5. 1 . 1  Cl 

40)99. 

55 

CONTINUE 

0  OIL  Ju 

IF  (cGAUGt)  GO  TO  £0 

OCIOIC 

CALL  REACNS  (  >♦,  ITOfit  « ISE A3  .  Jll 

(131)20 

Nul*  ANu  (7777777777o.aTCRE(1)» 

001030 

NG2*18YTE  (ITCf.fcdl  ,31,60) 

Culu4t 

CALL  SGZ  (N01+3, ITOkE .1.NC31, SGI .SRI) 

001.5C 

IF  (  EOF)  GO  TO  70 

001063 

IF  (NG2  .Ell •  3)  GO  TO  50 

001C7C 

CALL  SGZ  (NG2*3«ITOFC , 2.N032.SG2 »  SR2 ) 

031.80 

00  75  N* 1. IX 

031393 

K*I LI  ST  IN) 

OOllOC 

rs 

SGaRk  (N.NSUb)*SR2(K) 

001110 

NSUb=NSUd+l 

001120 

EGAUGE* . TRUE • 

0  01130 

GO  TO  bC 

601140 

78 

OC  60  N* It II 

001150 

K*ILIST(M 

001160 

88 

SGARR  (N,NSud)*SRl ( K) 

431171 

NSU8*NSUc*l 

o  aiiflu 

EGAUGF*. TRUE. 

401190 

GC  TO  50 

•31243 

68 

EGAUGl*.FAlSc. 

001210 

LSU8*NSOE 

401220 

ZCOUNT*IdYTE  (ISEAS  (1,1), 31, 42) 

401233 

JK*I8YTE  II SEAS  12, 11,12. 28) 

641244 

GO  TO  1101, 102, 103, 184), JCOOE 

401250 

♦- 

COUNT  NUMBER  Of  ROUNDS  FIREO 

001260 

888 

CONTINUE 

441270 

SH0T(NSuai*NR0CT>NR0CT4lBTTE (ISE  AS (1, I) .4,151 

661200 

GO  TO  50 

601293 

•• 

06TAIN  NUMBER  OF  ROUNDS  F1RCC  FROM  RECORD 

801339 

8lt 

CAkL  KEAOMS  (  4 , IT ORE • I COUNT , JK) 

06131C 

DECODE  (lO.llOu . ITORE)  NROCT 

801320 

888 

FORMAT  (IS) 

801330 

S HOT (NSUa>»NR0CT,l4VTL (ISEAS (1.11,4. 15) 

001340 

GO  TO  54 

831350 

D*I5 


c  — 

OoIAlh  t6*  dY  OLUM 

481367 

its 

C»lL  REACHS  (  4 , IT ORE , ICOUNT , JO 

U 0137b 

NRJH=It,nE  (ISEAS(1,II,4,15) 

881363 

ROE G* COM t SK 1 1  TORE  ,ICCUN1,CIAK3) 

0  0135C 

RCEOCT=«CEQCT4RO£d 

0  J 140C 

SHOT  1 NSUd) =KC£QCT 

06141” 

110 

IF  (LSUE  .60,  11  00  To  53 

0  31<>2u 

IF  (SHOT  (LSue-1)  .LE.  ShOKNSuaiiGO  TO  50 

601437 

LSUd=LSU£  *1 

80144') 

shot  (lsu6)  =  shgt (nsuo> 

001453 

OC  TO  110 

061463 

c  — 

OBTAIN  L SR  FROM  NUHo.ii  IN  RECORD 

00147C 

134 

CALL  rEmCMS  (4,ITCRc, 1  COUNT , JK) 

001483 

DECODE  (10 ,1005, IT Ok£ 1  RDEuCT 

001493 

1005 

FORMAT  (5XI5I 

001500 

SHOT (N3UE)=RCEGCT 

001510 

GO  TO  113 

6G152C 

SO 

CONTINUE 

001530 

51 

NSUd=NSUfc-l 

3C164? 

00  123  X  =  1 , NSUo 

00155J 

ISrtuT*SHGT (II 

001560 

00  125  J*1,II 

00157C 

125 

ISG ( J  >  =  100u.*SGARK ( J, 1 1 

0  6156a 

120 

H( x  T£  (  2, 1C  10)  ( 1  Sl>  (  J ) ,  J=1 ,11), I  SHOT 

1)01590 

1010 

FORMAT  (716) 

001603 

CALL  ETINOX  (4,INutX, 2811 

0U1611 

GO  TO  1 

001620 

E*0 

OC  1630 

SUBROUTINE  SG l  (NT,ITCRE,ITIM,N06,SG,SR) 

Qtlb4C 

0IM2NSIGN  ITOE-dOui))  ,SG<NT)  ,SR(NT  ) .TYPE  (2) 

8  4165C 

REAL  IdYTE 

0  U166G 

OATA  TYPE  /ah ALPHA, 5HGAMMA/ 

001673 

I  BYTE  (I,  J,K)*FlOAT  (ANO  (SHIFT  (i,l-J»  .COMPL  (MASK(  5  <i*  J-  K>  1 )  » /10  0  j  . 

001660 

ICT=NT/4 

001690 

IF  (ITIME  .EC.  1)  ICOUNT*2 

001700 

00  1  1=1,  ICT 

001710 

ICOUNT=iCCUNT  ♦  1 

001720 

IT*IT  ORE (ICOLNT ) 

001730 

SR ( 4* I  -3)=iaYTE(IT. 46,60 

001740 

SR (4*1  >2)=ieVTE(IT,31,45) 

•01750 

SR ( 4* I  -ll=ieYTE(IT,lE,33) 

001760 

1 

SM 4* I  )*IBYTE  (IT, 1,15) 

001770 

NGsNT-3 

001760 

RETURN 

801790 

ENO 

001600 

396*1 

•01620 

1,2,136.* 160. 

00163C 

376,1 

001640 

1,1,136, 

001650 

0,0 

001660 

*•«**«»•••• 


IN4P05 J  ////  END  OF  LIST  //// 
IN4P05J  ////  ENO  OF  LIST  //// 


LISTING  USED  BY  ALL  PROGRAMS 


SUBROUTINE  BUT (SUB) 

COMMON  INOEX  (201),INOEXS(1081),1SEAH(2,2B8),ISEAS (2 » l IBB) t 
1  OATAI8l,SGl (100) ,SG2<12) ,SG<56) 

CALL  STINOX  »  4, INDEX, 2B1) 

CALL  tLOSMSf  4) 

print  i,sub 

1  FORMAT  C19«1ERR0R— SUBPROGRAM  Alt) 

STOP 

ENO 

SUBROUTINE  CUNCAL  (IFN ,IGUN,ENEXT, JJ) 

LOGICAL  ESTOP, ENEXT 

COMMON  INOEX  (2B1) , INOEXSC 18B1) , ISEANC 2,200) ,ISEAS(2,1BDB) , 
t  OAT  At  81 ,S61 f 188) ,SG2t 12) ,SG(56) 

COMMON  /ONE/  TRASH(7) , NRECM  ,OTHC152> 

IBYTE  CI,J,KI*SHIFT(I,1-J)  .AND.  COMPL  CNASXC590-*)) 

WRITE  I  2, IS)  IGUN 
15  FORMAT  (11W0GUN  NUMBER  17) 

1  CO  2  I  *4  .NRECM 

1 1*1  BYTE  Cl  SEAM  ( 1,1)  ,46 ,68) 

IF  lit  .EQ.  IGUN)  GO  To  5 
IF  CIO  2,4,2 

2  CONTINUE 

WRITE  <2,108  NRECM, IGUN 

10  FORMAT  ( 27H  MAIN  ARRAY  FILLED.  NRECM  *  15, 7H  IGUN  *  15) 

CALL  OUT  (6MCUNCAL) 

5  JJ*I 

ENEXT*. FALSE. 

RETURN 
4  JJ*I 

ENEXT*. TRUE! 

RETURN 

ENO 

SUBROUTINE  OPENRE  (IFNI 
EXTERNAL  LEAVE 

COMMON  INOEX  (201) , INOEXSC 1081) , ISEAM ( 2,70  0) , I  SEAS (2 ,1808) , 

1  OATA(8)itSGl<100)  ,SG2(12)  ,SG  (56) 

COMMON  /ONE /  COCE.NGl , NGZ, NOB 1 , NOB 2, DI AM  ,NG,NRECH,S1 ,S2,S(158) 
CIMENSION  REC1 (168) 

EQUIVALENCE  (RECl.COOE) 

CALL  RECOVR  (LEAVE, 77B  ,01 
CALL  0 PENNS  *IFN .INOEX ,281 , 8) 

CALL  REAOMS  (IFN.REC1, 160, 1) 

CALL  REAOMS  HFN.SG.f'G ,2) 

NG0*NG1 

IF  (MOO(NGliE)  .EQ.  1)  NG0«NGl*l 

OECOOE  (560, T, SGI  (SGI (I) , 1*1 ,NG0) , (SG2I I) ,1*1 ,NG2) 

1  FORMAT  I112F5.2) 

CALL  REAOMS  *IFN,ISEAM,408,3) 

RETURN 

END 

SUBROUTINE  LEAVE  CIA, IB.IFIELO) 

IB«1 

CALL  OUT I5HL6AVE) 

ENO 


PROGRAM  BANKN 


PROGRAM  BANKL 


PROGRAM  BANKO 


PROGRAM  POINT 


APPENDIX  F 

NOTES  ON  PROGRAMS  AND  SUBPROGRAMS  USED  BY  THE  DATA  BANK 


PROGRAM  BANKN  controls  the  reading  of  data  from  cards  into  the  data  bank.  The  following 
subprograms  are  associated  with  BANKN: 

1.  SUBROUTINE  MARRY  is  used  to  place  data  in  the  ISEAM  array,  which  is  used  to  determine 
which  gun  subfiles  contain  requested  data  (Appendix  B). 

2.  SUBROUTINE  BURST  is  used  to  enter  velocity  data  for  multiple  round  bursts  into  the  data 
bank. 

3.  SUBROUTINE  LOOK  stores  the  name  of  the  cases,  wads,  plugs,  wear-reducing  agents,  and 
primers.  These  data  are  stored  in  the  first  record  of  the  File  and  are  referenced  as  needed 
(Appendix  B). 

4.  SUBROUTINE  GAUGIN  places  stargauge  data  in  the  data  bank.  If  the  stargauge  data  are 
entered  in  a  nonstandard  (for  this  program)  form,  SUBROUTINE  PBYP  is  called  to  help  keep 
things  straight. 

5.  FUNCTION  JREC  selects  the  record  number  of  each  record  written.  (As  explained  in 
Appendix  B,  there  are  provisions  in  the  subindex  for  each  gun  for  1000  record  numbers.) 

The  following  subprograms  are  used  by  all  programs  used  with  the  data  bank: 

1.  SUBROUTINE  OPENRE  calls  OPENMS  to  properly  open  the  mass  storage  file  and  reads 
certain  data  from  it. 

2.  SUBROUTINE  GUNCAL  finds  the  index  number  of  the  gun  requested. 

3.  SUBROUTINE  LEAVE  and  SUBROUTINE  OUT  help  cause  the  mass  storage  file  to  be 
properly  indexed  to  the  main  index  and  to  be  closed  in  the  event  of  an  abnormal  exit  (seek 
RECOVR  below). 

The  following  system  subroutines  are  among  those  used  by  these  programs: 

1.  RECOVR  is  called  by  OPENRE  at  the  beginning  of  each  run.  This  causes  any  abnormal  exit  to 
be  via  LEAVE  rather  than  an  abnormal  end  of  job  (an  abnormal  end  of  job  would  most  likely 
destroy  the  mass  storage  file). 

2.  OPENMS  properly  opens  the  mass  storage  file. 

3.  READMS  reads  data  from  the  mass  storage  file. 

4.  WRITMS  writes  data  to  the  mass  storage  file. 


F-l 


5.  STINDX  charges  the  index  used  in  referencing  the  mass  storage  file.  The  program  first  uses  the 
main  index  (INDEX  array)  to  reference  the  desired  gun  number,  and  then  it  uses  a  subindex 
(INDEXS  array)  to  reference  records  for  gun  firing  days  or  stargauging  desired. 

6.  CLOSMS  properly  closes  the  mass  storage  file. 

PROGRAM  BANKL  is  used  to  sort  the  ISEAS  array.  The  1SEAS  array  will  contain 
references  (via  the  INDEXS  array)  to  firing,  comment,  and  stargauge  data.  After  BANKL  is 
executed  for  a  given  gun  number,  these  references  will  be  by  order  of  date. 

PROGRAM  BANKO  will  output  data  from  the  data  bank.  The  following  subprograms 
are  associated  with  PROGRAM  BANKO: 

1.  SUBROUTINE  SELECT  (main  entry  point)  will  find  the  guns  with  the  data  requested 
by  the  input  data.  ENTRY  SEL2,  SEL3,  or  SEL4  will  find  data  for  each  requested 
gun  that  also  meets  the  requirements  for  selected  records. 

2.  SUBROUTINE  RBU  will  unpack  velocity  data  for  a  burst. 

3.  SUBROUTINE  SGR  unpacks  stargauge  data. 

PROGRAM  POINT  is  used  to  output  data  in  a  form  convenient  for  graphing.  This 
program  will  output  stargauge  readings  vs  rounds  fired  or  stargauge  reading  vs  estimated 
ESR  factors.  This  program  produces  little  output,  so  it  can  be  conveniently  run 
interactively.  The  following  subprograms  are  used: 

1.  SUBROUTINE  SGZ  unpacks  stargauge  data. 

2.  FUNCTION  COMESR  either  counts  rounds  fired  or  computes  ESR  factors  as  needed. 
It  uses  SUBROUTINE  VPCAL  to  fill  in  missing  velocities  and  pressures  and 
user-defined  FUNCTION  PESR  to  compute  ESR  factors.  (The  PESR  function  computes 
ESR  factors  by  the  method  of  Smith  and  O’Brasky*.) 


*C.  S.  Smith  and  J.  S.  O’Braak,  Preliminary  Calculations  for  the  203mm  Marine  Corps  Gun  Howitzer  Propulsion  Package,  Naval 
Surface  Weapons  Center,  Dahlgren  Laboratory  Technical  Report  NSWC/DL  TR-3734  (Appendix  B),  Dahlgren,  VA,  August  1977. 
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CASE!  Pl  UC I  HAOI  AGENT  I  PRIMER  I  15-3  PROJECTILE  I  VI  till 

PROPELLANT!  IHIC  in  CONtITIOVSD  IT  50  DEGREES. 

TIME!  0  CHARGE  I  651.99*7  LBS.  VELOCITY  I  3*16.  F/S.  PRESSUPEI  *3.5  KPSI. 

TIME*  <  CHARGE t  653.99*3  LBS.  VELOCITY!  3*17.  F/S.  PRESSURE*  *3.5  KPSI. 

TIHCl  0  CHARGE I  153.99*7  LBS.  VELOCITY!  3*06.  F/S.  PRESSURE!  *0.3  KPSI. 
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TIPE!  0  CHARGE!  E5N.6773  LBS.  VF.OCITYI  3393.  F/S.  PRESSURE!  *0.6  KPSI 

TIME!  •  CHARGE  I  675.1S7.3  ues.  VELOCITY!  3658.  F/S.  PRESSURE!  *3.5  KPSI 


CASK  PLUG!  MIDI  AGEHTt  “RIMER I  1S-2  PROJECTILE!  9-1  27GG 

PRCPELLAMT*  IHIC  1*  COMCtTIORiO  AT  90  DEGREES. 

TIRE I  «  CHARGE  I  093.99*7  EPS.  VE.OC1TTI  2*10.  E/S.  PRESSUREI  *1.*  KPSI. 

TIKE  I  «  CHARGE  I  0*3.99*7  LBS.  VELOCITY I  ELIA.  F/S.  PRESSUREI  *2.7  KPSI. 

TIHEI  B  CHARGE  I  1*3. 99*7  LBS.  VE.OCITYI  2*09.  F/S.  PRESSUREI  *1.7  KPSI. 
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